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INTRODUCTION 

Ecological studies related to the Donald C. Cook Nuclear Plant are unique. 
They differ from most environmental impact research in the extent of their 
coverage and the great length of the research period. This investigation in- 
cluded studies of bacteria, phytoplankton ecology, zooplankton ecology, benthic 
macroinvertebrate populations, fisheries, water chemistry, and physical limnol- 
ogy (winds, currents, ice, sediments)* This study can serve as a valuable 
example for future environmental monitoring and is a great source of information 
for the enhancement of our understanding of the long-term dynamics in the near- 
shore region of a large lake. Accumulated data can be used for future power 
plant site planning and siting on the Great Lakes coastline. 

The data base was begun in 1970 and has since grown rapidly in size. 
Although data archiving has been maintained continuously by each section, the 
archived information does not interface easily and cannot be used readily by a 
person without computer training. Furthermore, due to the rapid expansion of 
the data base, few individuals can maintain complete awareness of all available 
data and utilize pertinent information when analyzing a problem. The result is 
inefficiency in report writing and data interpretation. To improve this situa- 
tion, a project to devise an interactive data base management system was 
initiated. This data system can improve efficiency in data retrieval and 
storage* and house in one place all information from the studies related to the 
D. C. Cook Nuclear Power Plant. The latter provides a safeguard for access to 
these data by other interested persons for their research on Great Lakes 
ecosystems after the completion of the project. This data base encompasses 13 
individual studies and is summarized in Table 1. The total includes more than 



TABLE 1. Summary of data sets. 



Sub-project 



Sample Type 



Years Archived 



Phytoplankton 



Zooplankton 



Benthos 



Field-caught Fish 



Larval Fish 

Nutrient and Anion 
Lake Water Chemistry 
Sediments 



Lake Samples 

Entrainment Samples 

Lake Samples 

Entrainment Samples 

Lake Samples 

Entrainment Samples 

Impingement Samples 

Summary Statistics 

Lake Samples 

Impingement Samples 

Lake Samples 

Entrainment Samples 

Entrainment and Lake Samples 

Lake Samples 

Lake Samples 



1970-1982 
1975-1982 
1970-1982 
1975-1982 
1970-1982 
1975-1982 
1975-1981 
1973-1982 
1973-1982 
1973-1982 
1973-1982 
1975-1982 
1974-1982 
1973-1982 
1973-1977 



one-half million cases of biological, chemical, and physical information on the 
near shore of southeastern Lake Michigan. 

The data base management program used is Taxir, which is an information 
storage and retrieval program and has general purpose features for keeping track 
of large organized data sets. The capability and benefits of such a system 
extend far beyond this and include the following items: 

1. It offers a centralized data source and can be controlled and monitored 
effectively. 

2. It allows for multiple users. 

3. It reduces the data redundancy and increases efficiency in data 
retrieval and storage. 

4. It can enhance data integrity, consistency, and accuracy and can 
provide security while greatly reducing efforts needed for generating 
reports and tables . 

For this study, a general procedure was followed. The first step was 
to reorganize "raw data" in a form compatible with the Taxir data program. 
Comments were then solicited from each sub-project leader with respect to the 
appropriateness and adequacy of the information. If important parameters should 
be included but were not yet included in the data base, efforts were made to 
incorporate such information. Data verification was then performed, and errors 
were corrected. Because it was our intent that the data base be accessible to 
all interested persons, an interactive user program was written which was 
designed to improve user access and ease of operation. 

This report documents in detail the procedures used and the programs writ- 
ten for establishing the data base management system for the D. C. Cook ecologi- 
cal study and describes the data contained in the data base as well as the ways 



in which these data can be accessed. An overview of each chapter is given 
below. 

Chapter 1 is a review of Data Base Management Systems (DBMS) and their 
importance in scientific research, as well as the elements that need to be 
considered when selecting a DBMS program. 

Chapter 2 is an introduction to available (DBMS) programs from the Michigan 
Terminal System (MTS) of The University of Michigan along with the character- 
istics of each DBMS program. Comparisons between these systems are made. 
The reasons for choosing the Taxir program for this task are discussed. 

Chapter 3 is an introduction to data organization and how Taxir handles 
data structure. It also describes major terms and notations used in association 
with the establishment of the data base. 

Chapter 4 is a description of the procedures and the flow diagram for 
establishing a data base for each sub-project. Details are given regarding 
the structures of different data sets, which include formats, parameters, 
ranges, software programs, and methods. All procedures and software programs 
used are described and documented. Explanations of how to access the data sets 
are also given. 

Chapter 5 includes a presentation of the Interactive Computer Program, 
which is written in FORTRAN and can be interfaced with Taxir. This program 
is intended to improve user access and can help persons with little experience 
in accessing data with computers. 



CHAPTER 1 
DATA BASE MANAGEMENT SYSTEMS 



Data Base Management Systems (DBMS) is a term that refers to the computer 
technology necessary for data collection, organization, storage, retrieval, 
and manipulation. A data base system (DBS) deals with record-keeping and making 
the computer function as a super filing system. 

A Data Management System (DMS) works with the smallest unit of data, 
which is usually called a data item . A collection of items is called a record , 
and an organized collection of records constitutes a file . The occurrences of 
the records in a file are associated by means of a specified relationship. 

The generally-accepted requirements for a DBMS include the capability 
to create, revise, add, and delete records from a file; retrieve records; sort; 
perform limited computations; and generate reports. 

ADVANTAGES OF USING A DBMS 

The advantages of working with a DBMS rather than a non-computer filing 
system are that the data can be accessed in a greater variety of ways, searched 
quickly, and changed more easily; and auxiliary programs can be applied to the 
data in the DBMS to produce reports, copies of the data, and other outputs. 
In non-computer filing systems, such outputs usually must be produced manually, 
a process which is time-consuming, subject to transcribing errors, and ineffi- 
cient . 



The advantages of Data Base (DB) technology in areas other than data filing 
can include: 

- data independence, 

- data shareability, 

- non-redundancy of stored data, 

- reliability, 

- integrity, 

- access flexibility, 

- security, 

- efficient performance (especially in view of large-size files), and 

- greater administrative control. 

These advantages are essential for developing and supporting modern inte- 
grated information systems, which bring together a variety of data and inter- 
relate it for a variety of users, not just for one or for a limited few. 
The ability to share or use these data also minimizes the amount of redundant 
storage. 

DATA BASE DESIGN 

Data base design is the most important attribute of a data base management 
system and shows how the data items are classified and interrelated. In design- 
ing non-computer filing systems, an office-clerical typically invents a number 
of filing categories and decides which files are in which categories and what 
kinds of things are sorted in each file. The same design decisions must be made 
when computer systems analysts set up data bases. 



TYPES OF COMPUTER DATA BASE MODELS 

Technically, data base designs can be grouped according to their logical 
characteristics. One data base design may have many file categories with files 
within each category, another may allow each file to belong to several cate- 
gories at once, and so on. 

Each DBMS has certain capabilities and restrictions regarding the data 
base designs that it will support. The set of rules that determines which 
data base designs a given DBMS can support is called the "data model" of the 
DBMS. The term "data model" is used because the data base design rules for 
each DBMS constitute a set of assumptions about how a filing system generally 
behaves . 

Because most data base management systems are expected to be general- 
purpose computing tools, it is the goal of most data models to be as general 
and as simple as possible. There are three major kinds of data models that are 
common: hierarchical, network, and relational. Of these, only the relational 
model maintains the logical simplicity of so-called flat files. A brief des- 
cription of these models follows. 

Hierarchical Model 

The hierarchical model keeps data in a form resembling the following out- 
line. For example, suppose there is a need to keep records of university stu- 
dents who are being used as subjects in psychology experiments. A hierarchical 
system would organize the data like this: 



I. Researcher :Dr. Know 

Address :Medical Bldg. 

Experiment Type s Attention 

A. Subject sJohn 

Telephone : 665-9988 

Major 2 Computer Science 

Sex t Male 

B. 

C. : 

II. Researcher : 



The basic idea of the hierarchical model is that the data are organized 
into groups (in our example, researchers) which have subgroups (individual 
subjects in this instance); in turn, they can have subgroups, and so on, 
to the required degree of complexity. 

It is important to note that each group in a hierarchical data base may 
have many subgroups, but each subgroup is in one and only one group. This is 
an example of what is called a "1-N" relation between groups and subgroups. 

The major failing of this model is that few data base management problems 
remain strictly hierarchical. For example, if one person serves as a subject 
for two different reseachers, then the data would no longer behave in a strictly 
hierarchical manner. 

Network Model 

The network model could be considered an extension of the hierarchical 
data model. A network data model is simply a model that allows more or less 
arbitrarily complex relationships. Thus, in our example not only can the 
records of one researcher be related to those of many subjects, but also one 



subject record can be related to many researcher records. This is called 

a many-many relationship. The following relationships can serve as an example: 



Researcher 
Dr. Know 



Researcher 



Subject 
John 



Subject 
Mary 





Dr. Best 




Subject 




Subject 


Bob 




Nancy 



The biggest problem with the network, data model is that the data base can become 
excessively complicated. 

Relational Data Model 

The relational data model is the most modern of all the data models. 
This is actually an extension of the flat-file data model (see Chapter 3). 
The flat-file data model treats data as a single collection of ordered items, 
each with the same format. For example, the following flat file contains 
the information about the subjects in our previous example, 



Subject 
John 



Telephone 
665-9988 



Major 
Computer Science 



Sex 

Male 



while the following flat file keeps track of researchers: 



Researcher 

Dr. Know 

t 

i 



Address 

Medical Bldg« 
t 

? 

t 



Experiment Type 
Attention 



Then if we need to store the information about the relationship between re- 
searchers and subjects, there will be another flat file such as the one below: 



Researcher Subject Date Assigned 

Dr. Know John 4/1/82 

» » i 

» t , 

» t t 



In order to have a practical records system using these flat files, 
we would need some data base management capable not only of storing them 
but also of manipulating them to retrieve and update the stored information. 
This data base management system would have to extract and combine information 
from the flat files in various ways, but the relational model has a flexibility 
that the flat-file data model cannot attain. 

In general, any data base design that can be represented in the hierarchi- 
cal or the network models can also be represented as a set of relations in the 
relational model. While it is true that the relational model is conceptually 
simple, there still remains a good deal of work to make that simplicity avail- 
able to users at low cost. 

AVAILABILITY OF DBM 

The commercial products associated with data bases and data management 
systems have changed dramatically in the last several years, especially because 
of new hardware and software technologies. In the 1970s there were no more 
than two dozen widely marketed DBMS product lines; today there are hundreds. 
Major data management systems differ primarily in language utilized, file 
organization, and access method and level of system users. 
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Language Utilized 

This deals with the difference between what are called self-contained 
and host-contained systems* The former usually provide a language designed 
for the non-programmers, whereas the latter are tied to such languages as COBOL, 
PL/1, ALGOL, and FORTRAN, and are especially for the application programmers 
who use these languages. Self-contained systems provide their own language, 
which is user-oriented and designed to be used by managers and others with mini- 
mal knowledge of programming. 

It is important to note that self-contained languages are usually machine 
dependent. Few systems can operate effectively on more than one type of com- 
puter equipment . 

File Organization 

In examining data management systems, one must separate logical and physi- 
cal file organization. A study of logical organization will show whether user 
requirements can be satisfied. A study of physical file organization indicates 
the handling procedures, file maintenance, retrieval capability, output, and 
similar operational features of the data management system. 

Access Method and Level of System Users 

A data management system makes it possible for various users to work 
with a common data base when the data base is an interrelated set of organiza- 
tion files. Three levels can be defined within the system users: 

^• # Systems Designers determine long-range objectives. 

2* Middle Management oversees the daily operations of a company. 

~' # General Users need to have no knowledge of programming, and/or 
self-contained system language. 

11 



CRITERIA FOR SELECTING A DBMS 

Too often, decisions on the selection of a DBMS are based on incomplete 
and inaccurate factors that can result in revisions and costly long-range 
repercussions. Selection of a DBMS should be done carefully in order to avoid 
a loss of time and money in the long run. In selecting a data base management 
system, four criteria should be considered: 

1. suitability of the DBMS to the specific characteristics of the data 
to be handled, 

2. simplicity of the system used, 

3. time and cost involved, and 

4. future needs. 

A good DBMS should offer: 1) data independence, 2) data dictionary to define 
and control the data environment, 3) good query language to allow access to the 
data base, 4) good report-generating features, and 5) a simple high-level user 
language • 

The time dedicated to an analysis and evaluation of the user's requirements 
and limitations, as well as the evaluations of the assets and limitations of the 
various DBMS available, can be the time most valuably spent. The planning time, 
carefully spent, can make the installation and use of a DBMS a profitable expe- 
rience in both financial and managerial terms. 
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CHAPTER 2 
DBMS SUPPORTED BY MTS 

MICHIGAN TERMINAL SYSTEM 

The Michigan Terminal System (MTS) is a very powerful operating system 
supported by the University of Michigan Computing Center. Like most large 
computer installations, it prohibits direct operation of the equipment by anyone 
but professional operators. The computer is under the combined control of its 
human operators and a master program called the operating system, which coordi- 
nates the jobs of the various users and provides them with a variety of auxil- 
iary computing services. 

MTS permits its users to operate in either interactive mode or batch mode. 
In interactive mode, a large number of users at remote terminals are able to use 
the computer concurrently and independently. The user in interactive mode 
usually types a message (e.g., command, statement , query) on his terminal key- 
board and sees a response from the computer before typing the next statement, 
which may be a modification of the first one. 

For jobs running in batch mode, the operating system is the same, but no 
dialogue is possible between the user and the computer. The user submits his 
entire job at once (in the form of a card deck) and waits for the entire output 
of the job. Batch mode is useful when there is no need for human-computer 
interaction. In both modes, the user appears, from his own point of view, 
to have the entire computer to himself. 
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DBMS ON MTS SUPPORTED BY THE COMPUTING CENTER 

The computing center supports the Taxir and SPIRES data base management 
systems. Both systems are used primarily for academic applications, although 
they have been applied to a few administrative projects. 

Taxir 

Taxir is a generalized information storage and retrieval system which 
can be used at any computer installation within the MTS operating system. 
It is written and supported by the University of Michigan Computing Center. 
It is a completely self-contained system that provides facilities for defining, 
searching, and managing data bases that can be implemented as flat-file data 
bases. 

Taxir is the simplest data base management system available on MTS at 
The University of Michigan and is the easiest system to learn and use. 
In general, Taxir is very inexpensive to use. It stores data in a highly 
compressed form, which reduces the cost of storage; and it retrieves data 
very rapidly, thereby reducing computer processing costs. 

Taxir can be run in both interactive and batch mode. It provides a number 
of features that make it an attractive data base management system for many data 
base applications. It has a single high-level language, somewhat resembling 
English, that provides simple commands for defining, manipulating, updating, 
and querying data bases. The system has flexible report-generation facilities, 
which allow users to produce ordered, labeled, formatted outputs. Taxir pro- 
vides an interface with MIDAS, a powerful statistical analysis program available 
to compensate for Taxir f s few facilities for statistical features. In addition, 
it can be called through standard FORTRAN-calling conventions. In general, 
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Taxir can best be used for data base applications in which 1) the data are 
represented in a flat-file structure, 2) the application requires a cheap, easy- 
to-use system, 3) users want to search on any field or combination of fields, 
and 4) MTS security facilities are sufficient. 

SPIRES 

The Stanford Public Information Retrieval System (SPIRES) was written 
at Stanford University. It is an on-line general-purpose information and 
retrieval system available in the MTS operating system and supported by the 
Computing Center at The University of Michigan. It is a completely self- 
contained DBMS that provides extensive facilities for defining, searching, 
updating, and managing data bases. SPIRES is based on the hierarchical data 
model, but it also provides some network capabilities (see Chapter 1). 

Although SPIRES is a general-purpose system, it has special features 
for efficiently and conveniently storing and retrieving text or character data. 
Any application that requires storage of lengthy textual material is a strong 
candidate for SPIRES. For example, designers of bibliographic data bases would 
probably find SPIRES the most appropriate data base management system on MTS. 

Output formats and other special SPIRES features can be used to generate 
reports, construct tables, sort data, and display data in a variety of formats. 
Because SPIRES is so flexible, it is also very complex. This means that it is 
more costly and often more difficult: to use than the other DBMS available on 
MTS. It is true that searching an existing SPIRES data base is not difficult, 
but defining a new data base usually is not a simple task. Some programming 
background is often required for a better understanding of this language. 
In general, one should consider SPIRES for data bases when the data 1) involve 
lengthy textual materials such as characters or strings, 2) require many 

15 



repeating fields, 3) can best be stored hierarchically, 4) are very large in 
number, and 5) require extensive DBM facilities. 

OTHER DBMS 

Other units at The University of Michigan also support some DBMS on MTS, 
which may be used by anyone with a computing center account. The major ones are 
MICRO, MIDAS, OSIRIS, ADBMS, ARCH:MODEL, and Relational Management System (RIM). 
A brief description of each system follows. 

MICRO 

The MICRO information management system, which operates only on MTS, 
is written and supported by the Institute of Labor and Industrial Relations, 
a joint institute of The University of Michigan and Wayne State University. 
MICRO is a self-contained information, storage, and retrieval system. 
It is based on the relational data model. 

MICRO permits non-programmers to define, enter, interrogate, manipulate, 
and update user-defined collections of data in a relatively unstructured 
and unconstrained environment. It has general applicability to a wide variety 
of educational, administrative, and research data processing activities. 
Its capabilities lie roughly between those of Taxir and SPIRES. It is designed 
to be run interactively from computer terminals, but caution is required when 
trying to run a batch job. 

MICRO is very powerful in terms of the programming language because of 
its English-like grammer, which makes it easy to learn and use. Predetermined 
procedures can be easily executed in MICRO to deal with complex reporting 
and retrieval problems. It has limited facilities for character string (text) 
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data. It can be interfaced to MIDAS (the statistical package on MTS) for any 
statistical analysis. 

MIDAS and OSIRIS 

These are both statistical analysis packages which provide some data man- 
agement capabilities. MIDAS is supported by the Statistical Research Labora- 
tory. OSIRIS is supported by the Survey Research Center of the Institute 
for Social Research. They both work in interactive and batch modes. 

ADBMS 

This is a host-language-dependent DBMS based on the network data model. 
Users must write their own "interface" program to use ADBMS. It is written 
in FORTRAN but can be called from programs written in FORTRAN, COBOL, and PL/1 
on MTS. ADBMS is particularly useful when one is faced with complex structures 
and when access and reporting requirements are algorithmic in nature. It also 
can be used with many different operating systems and computers. 

ADBMS is written and supported by a Research Project of the Information 
System Design Optimization Society (ISDOS) in the department of Industrial 
and Operations Engineering (IOE), the College of Engineering at The University 
of Michigan. 

ARCH: MODEL 

ARCH: MODEL is a DBMS designed for applications involving geometric model- 
ing, such as computer-aided architectural design. It is supported by the Archi- 
tectural Research Laboratory of the College of Architecture and Urban Planning 
at The University of Michigan. 
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Relational Management System (RIM) 

This is a self-contained system based on the relational model . It provides 
features for combining and manipulating flat files. Data can include real and 
integer vectors and also matrices. It has extensive on-line documentation and 
help facilities. It is supported by the Architectural Research Laboratory but 
is available to all in the University community. 

CRITERIA FOR A SUITABLE SELF-ORIENTED DBMS 

In choosing a good self-contained high-level language, one should consider 
the following properties: 

1) A substantial number of prospective users of the language must exist; 

2) The language must solve a substantial portion of the problems 
confronting the intended users; 

3) It should not be needlessly difficult to learn; 

4) It should be natural to write programs in the language which are easy 
to understand; 

5) Any limitation of the language should be clearly justified (e.g., 
learning ease, processing efficiency, available capacity); and 

6) The language should provide the users with appropriate access 
to facilities for effective communication with the environment. 

JUSTIFICATION FOR SELECTION OF TAXIR 

After careful study and comparison of the available DBMS on MTS, Taxir 
was chosen for this project. Comparisons were done mainly between Taxir, 
SPIRES, and MICRO. All three are general-purpose DBMS and are simpler 

18 



and stronger than the others. Although SPIRES has many good features, running 
SPIRES programs is costly and time consuming. Furthermore, the advantage which 
SPIRES has in dealing with bibliographic features is not of interest here. 
Because of the complexity involved in the design of a new SPIRES data base, 
it has been recommended that, when possible, one should use Taxir or MICRO 
instead of SPIRES. 

Because in this study data sets are represented in forms of flat files, 
the final comparisons were done between MICRO and Taxir. Although MICRO can 
work with several data sets simultaneously and has rather good on-line documen- 
tation, Taxir has the following advantages: 

1) Taxir is written, supported, and maintained by the Computing Center 
of The University of Michigan; 

2) Taxir is the simplest DBMS to learn and use; 

3) It is cheaper to run a Taxir program; 

4) Taxir stores data in a highly compressed form (less memory space 
is needed); 

5) Information retrieval is faster with Taxir; 

6) Taxir has flexible querying and display features; 

7) It is possible to call Taxir from a FORTRAN program for further 
applications; and 

8) Taxir can be run safely in both interactive and batch modes. 

These advantages determined the choice of Taxir for the DBMS for the D. C. Cook 
environmental impact study. 
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CHAPTER 3 
TAXIR ORGANIZATION 

TAXIR DATA BASE 

A Taxir data bank is a collection of items, each of which contains data 
belonging to information categories called descriptors containing all the 
relevant information about some entity being described by the data bank. 
For example, a phytoplankton data bank would contain one item for each species 
on the list. Each item in that data bank would consist of several pieces of 
information about one presented species, such as day, month, year, location, 
major group, cell number, and so on. 

Each descriptor represents an attribute of the entities being described 
by the data bank. For example, a phytoplankton data bank could have the des- 
criptors such as day, month, year, location, major group, cell numbers, etc. 
That is , each item in a data bank is associated with a series of data values 
(descriptors). There should be one value for each descriptor. Thus a Taxir 
data bank may be thought of as a two-dimensional matrix in which each row cor- 
responds to an item and each column corresponds to a descriptor. This data 
organization is called a flat-file structure (discussed in next section). 
Every Taxir data bank has the following structure: 



Descriptor 1 Descriptor 2 



Descriptor 3 Descriptor N 



Item 1 

Item 2 
t 



States 



States 



States 



States 



Item M 
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The range of values allowed for a descriptor in a data bank is called a 
descriptor state, which may be integer/real numbers or strings of characters. 
This concept is identical to that of range for a parameter. For example, 
if the descriptor state for years is 1971 to 1973, then the descriptor year 
could have the states 1971, 1972, and 1973. 

FLAT-FILE DATA MODEL 

As was mentioned in Chapter 1, the relational model is the extension of 
the flat-file data model. The flat-file data model is the simplest and the 
oldest data model. A flat-file DBMS keeps data in the form of a flat file, 
(e.g., mailing list data bank). Each item in the flat file is called a record. 
Each record corresponds to a single complete entry in the file. Records are 
composed of data elements. 

A data element is basically an irreducible data component. Each data 
element has a name or a value. Data elements are sometimes called fields. 
Every record in the flat-file data base has the same number of elements, 
and each record has data values that represent one object in the real world. 

FLAT -FILE NATURE OF TAXIR DATA BANK 

The way in which Taxir organizes and manipulates data is based on a simple 
notion of set theory using a flat-file data model. In general, if the infor- 
mation can be stored as a single flat file, then the data base can be stored 
as a Taxir data bank. In each Taxir data bank, each item has one and only one 
state for each descriptor. That is, each item in a Taxir data bank corresponds 
to a record in a flat-file data base, each descriptor corresponds to a field, 
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and each descriptor-state corresponds to a value • Furthermore, like other flat- 
file DBMS, Taxir does not allow structure fields (i.e., descriptors may not 
consist of other descriptors); and it provides no direct access to the items 
in one data bank based on information stored in another data bank. 

DESIGN OF THE DATA BANK 

Before using Taxir, one needs to consider the following for the design 
of a data bank: 

1 ) Number of data banks needed 

2) Item(s) in each data bank 

3) List of the descriptors for each item 

4) List of states for each descriptor 

5) Kind of queries (questions) expected 

6) Nature of information flow and work flow 

7) Cost and time involved 

In most cases, planning and time will be needed to decide upon these points, 
but it is essential to study all the constraints in order to design and create 
a data bank that meets all the requirements. 

TYPE OF DATA SUPPORTED BY TAXIR 

Associated with each descriptor in a Taxir data bank is a descriptor type 
which specifies what data values may be used as states for that descriptor. 
Taxir permits three descriptor types: from-to, order, and name, which provide 
the capability to store numerical (integer/real values), codified (categorical), 
and general character-string (words) data, respectively. Taxir also provides 
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some features for handling missing data for each of these descriptor types 
identified as unknown states. The descriptor types are specified by the 
designer of a data bank when the data bank is defined. 

The thing to consider here is that Taxir automatically assigns code numbers 
for both descriptors and their states to a data bank. Thus a user can have the 
choice of typing either the name of the descriptors and their states or the 
codes for both of them when communicating with Taxir. 

RUNNING TAXIR 

There are three ways to use Taxir: 1) as an interactive system from a 
terminal; 2) as a non-interactive system in batch mode, and 3) as a subroutine 
by calling it from a user program. In each case, user inputs to Taxir must be 
in the form of Taxir statements, MTS commands, or input data. Each Taxir state- 
ment is a request for Taxir to do some data processing or to modify the Taxir 
environment. Each statement begins with a statement name, known as a statement 
type. Most statements also include additional information, which further speci- 
fies what the user wants Taxir to do. The system reads and executes each state- 
ment before treating the next statement. There are no facilities for condition- 
al jumps; hence, no program branching or looping. In other words, the execution 
of the Taxir statements is sequential. 

DATA ENTRY AND DATA COMPRESSION 

Taxir provides the following data entry capabilities: 

1) Data can be entered in batch mode or in interactive mode. 
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2) Data can be entered directly from punch cards, MTS disk files, 

or terminals, and indirectly from magnetic tapes and other available 
machine-readable forms • 

3) Data to be entered can be in a variety of user-specified fixed 
or free formats. 

4) Taxir assigns a default state for any missing values* 

5) Taxir does some data validation on all data. 

6) Data are automatically stored in a highly compressed form. 

This last capability of Taxir is particularly important in saving memory space. 
The compression process is completely automatic and unseen by Taxir users who 
cannot (need not) control it. 

RETRIEVING DATA AND BOOLEAN EXPRESSIONS 

The power to retrieve information selectively from a data bank is the power 
to name subsets of interest from the total bank. For this purpose, Taxir 
applies the language of boolean algebra. 

A boolean expression which defines the subset of items from the data bank 
consists of a series of operators and operands. A set of rules defines how the 
operators act on the operands to yield a result. These operators are complement 
(NOT), intersection (AND), and union (OR). 
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The operands are sets, as are the results. The figures below explain these 
concepts graphically: 



U 




(1) 



Complement , 

if U « all the students in the class and 
A =* those with hats, 
then NOT A ■ those without hats (shaded area). 




(2) 



Intersection, 

if U - all the students in the class and 
A * those with hats and 
B « those with coats, 
then A AND B = those with both hats and coats 

(shaded area). 




(3) 



Union, 

if U - all the students in the class and 
A = those with hats and 
B = those with coats, 
then A OR B ■ those with hats or coats or both 

(shaded area). 
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Taxir boolean expressions provide simple, flexible ways for users to select 
items by specifying simple or complex search criteria involving any or all of 
the descriptors in a data bank. The retrieving statements enable Taxir users 
to: 

1) Find out how many items meet some user specified criteria, 
prior to displaying, deleting, or updating them. 

2) Retrieve and immediately display some user-specified set of items. 

3) Retrieve items based on the states of any descriptor in a data bank. 

4) Issue complex search requests involving any combination of descriptors. 

5) Narrow a search result before displaying or updating the items in it. 

DISPLAYING DATA IN TAXIR 

Taxir display facilities include features for: 

1) Displaying some or all of the descriptor-state for selected items. 

2) Displaying data in a variety of formats. 

3) Sorting output in terms of any descriptor. 

4) Generating a report, including subtotals and totals. 

(Note that Taxir can interface with MIDAS for further statistical computations.) 
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CHAPTER 4 
PROGRAMMING PROCEDURES FOR ESTABLISHING THE COOK DATA BASE 

DESCRIPTION OF THE COOK DATA BASE 

The methods used to establish the Cook Project data base are discussed 
in this chapter. This data base includes 15 data banks which are shown below: 



Group 
Phytoplankton 

Zooplankton 

Benthos 



Field-Caught 
Fish 



Larval Fish 

Nutrient 
and Anion 

Lake Water 
Chemistry 

Sediments 



Data Type 
Lake Samples 
Entrainment Samples 
Lake Samples 
Entrainment Samples 
Lake Samples 
Entrainment Samples 
Impingement Samples 
Summary Statistics 
Lake Samples 
Impingement Samples 
Lake Samples 
Entrainment Samples 
Lake and Entrainment Samples 

Lake Samples 

Lake Samples 



Name of Data Bank 

1 . Lake • Phytoplankton 

2 . Entrained .Phytoplankton 

3. Lake. Zooplankton 

4. Entrained. Zooplankton 

5. Lake. Benthos 

6. Entrained. Benthos 

7. Impinged. Benthos 

8. Adult. Fish. Summary. St at is tics 

9. Lake. Adult. Fish 

10. Impinged. Adult. Fish 

11. Lake. Larvae 

12. Entrained. Larvae 

13. Nutrients 

14. Lakewater 

15. Sediments 



The explanations for the methods used along with the lists of the programs , 
the examples , and other helpful comments are provided in the sections which 
follow. It is hoped that this information can facilitate users in accessing 
data of interest, retrieving the needed information, and using the provided 
methods for establishing a similar data base in the future. 
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GENERAL PROCEDURES 

To establish a data base using Taxir, the data must be in flat-file form. 
Once they are in that form, a Taxir program is used to enter these data to the 
computer data base program. Because most of the Cook data were not in the form 
of flat files, FORTRAN programs were written to reorganize these data into the 
flat-file forms. The general procedures involved in this operation are shown 
in the following flow chart. 



Data are 
already flat 
files 



Original Data Sets 



Other than flat files, FORTRAN 
program is used to reorganize the 
data into a flat file. 



Flat Data Files 



Taxir-Create Program 



Data Bank 



For each data set, the FORTRAN program and the programs to create a Taxir 
data base for this data set are presented along with the flow chart diagram. 
It is noted that the FORTRAN programs written for this project are used not only 
to reformat the data sets but also in some cases to combine the parameters of 
interest from several data sets into a single flat file. 



28 



LAKE PHYTOPLANKTON 

The Lake.Phytoplankton data bank is one of the largest data banks created 
for this project. It contains 13 descriptors and 90,076 items. The descriptors 
and their codes are listed below: 

1-DAY 

2-MONTH 

3-YEAR 

4-L0CATI0N 

5 -NAME 

6-TEMPERATURE 

7 -SPECIES CODES 

8-MAJOR GROUPS 

9-CELLS 
10-FRACTI0N 
11 -TOTAL CELLS 
12-DIVERSITY 
13-REDUNDANCY 

The monthly number of phytoplankton items collected since November 1970 is 
listed in Table 4.1. 
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TABLE 4.1. The number of data items in the Lake.Phytoplankton data bank 
for the D. C. Cook Plant data. 



Year Month 



Total # 
of Items 



Year Month 



Total // 
of Items 



Year Month 



Total # 
of Items 



70 


NOV ( 


;i,179) 


71 


APR ( 


; 988) 




JUL ( 


[1,799) 




SEP ( 


[1,589) 




NOV 


( 985) 


72 


APR < 


:i,078) 




JUL < 


; 758) 




OCT ( 


[1,607) 


73 


APR ( 


[1,621) 




JUL ( 


[1.321) 




OCT ( 


[1,495) 


74 


APR ( 


[1,628) 




MAY ( 


[ 513) 




JUN ( 


[ 498) 




JUL 1 


[1,654) 




AUG ( 


[ 393) 




SEP 1 


[ 338) 




OCT ( 


[2,190) 


75 


APR < 


[1,727) 




MAY ( 


[ 393) 




JUN ( 


[ 685) 




JUL ( 


[1,461) 




AUG ( 


[ 455) 




SEP < 


[ 643) 




OCT 1 


[2,839) 



76 



77 



78 



APR < 


[2,105) 


MAY < 


[ 735) 


JUN ( 


[ 545) 


JUL ( 


[1,925) 


AUG ( 


[ 504) 


SEP ( 


[ 880) 


OCT ( 


[2,441) 


APR 1 


[2,405) 


MAY ( 


[ 602) 


JUN ( 


[ 598) 


JUL 1 


[1,861) 


AUG ( 


[ 708) 


SEP ( 


[ 991) 


OCT 1 


[2,390) 


NOV ( 


[ 590) 


APR i 


[2,432) 


MAY ( 


[ 852) 


JUN 1 


[ 989) 


JUL l 


[2,897) 


AUG 1 


[ 638) 


SEP ( 


[ 671) 


OCT 


(2,610) 


NOV < 


[ 743) 



79 



80 



81 



82 



APR < 


[2,302) 


MAY ( 


[ 674) 


JUN ( 


[ 736) 


JUL ( 


[1,516) 


AUG < 


[ 690) 


SEP ( 


[ 491) 


OCT ( 


[2,045) 


NOV ( 


[ 724) 


APR ( 


[2,108) 


MAY ( 


[ 696) 


JUN < 


[ 653) 


JUL ( 


[1,919) 


AUG ( 


[ 850) 


SEP ( 


[ 725) 


OCT < 


[2,180) 


NOV ( 


[ 555) 


APR 1 


[1,705) 


MAY 1 


[ 695) 


JUN < 


[ 371) 


JUL ( 


[1,248) 


AUG ( 


[ 571) 


SEP ( 


[ 762) 


OCT 1 


[2,080) 


NOV 1 


[ 655) 


APR l 


[1,749) 


MAY 1 


[ 429) 
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The flow chart representing the stages in the creation of the 
Lake.Phytoplankton data bank is as follows:: 



Original Phytoplankton Data 



Use Reformat Program 



Flat Data Files 



Use TAXIR Create Program 



LAKE . PHYTOPLANKTON 



Add Additional Parameters 



LAKE . PHYTOPLANKTON 



Phytoplankton Data Files and the Reformat Programs 

The original phytoplankton data files are stored in the files: RDmonthyear 
(for example, RDNOV70). The data between November 1970 and December 1980 are 
saved on the tape "Phyto," the 1981 and 1982 data files can be found on the 
"Phyto2" tape. Because there are some differences in the data structures in 
these files, especially in the formats of the headlines, different reformat 
programs are needed to handle these forms of the data structures. The following 
is a list of the names of the reformat programs for different sets of the data. 
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Reformat Program Data Set 

REF0RMAT1 All months of 1971, 1972, 1973; and May, 

June, August, September in 1974. 
REF0RMAT2 November 1970; all months of 1975; and 

April, May, July, October in 1976. 
REF0RMAT3 April, July, October in 1974. 

REF0RMAT4 June, August, September in 1976; and all 

months of 1977, 1978, 1979, 1980, 1981, 

and 1982. 

These reformat programs are listed in Tables 4.2-4.5. 

Taxir Create Program 

Reformat programs discussed in the last section were used to provide the 
phytoplankton data in the form of flat files. The Taxir Create program 
PLTAXIRCR was then used to create the LAKE. PHYTOPLANKTON data bank. 
The contents of the PLTAXIRCR program are given in Table 4.6. 
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TABLE 4.2. Program REFORMAT 1, 



C PROGRAM REFORMAT 1 IS RUN TO REORGANIZE LAKE PHYTOPLANKTON RAW DATA 

C FILES. THIS PROGRAM IS USED FOR ALL MONTHS OF 1971, 1972, 1973; AND 

C MAY, MNE, AUGUST, SEPTEMBER IN 1974. 

C UNIT 5 IS ASSIGNED TO INPUT FILE, (RAW DATA FILE). 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE ,- (REFORMATTED DATA FILE). 

C UNIT 7 IS ASSIGNED TO ANOTHER OUTPUT FILE FOR THE VALUES OF DL & SW . 

C 

c 
c 
c 

c +****** INITIALIZE VARIABLES. 



£******* 

c 

LOGICAL*! CODE (9,200) 

REAL CTS(200),FRAC(200),H(16) 
C 

CONST— 1./AL0GC2.) 
C 

£+4****1* 

c * ****** READ THE HEADLINES. 

c******* 
c 

1 READ(5,100,END-99) (H( I ) , I- 1 , 16) , IDL, ISW 
100 F0RMAT(16A4,X2,1X,X3) 

VRXTE(7.200) 2DL.ISW 
200 F0RMAT(X2,1X t X3) 
C 

SUM-O. 
NS«1 
C 

£******* 

c ******* READ THE DATA L j NES . 
c ******* 

c 

5 READ(5,300,EN0«10) (COOE(U.NS) . J«1 ,9) .CTS(NS) 
300 FORMAT (9A1.F7.0) 

XF(CTS(NS).LT.1.) GO TO 10 
CTS(NS)-CTS(NS)/1000. 
SUM-SUM*CTS(NS) 
NS-NS+1 
GO TO 5 
C 
10 DXV-O. 
NS-NS-1 
C 

c******* 

c ******* CORRECT THE FRACTION AND DIVERSITY VALUES. 

c******* 

c 

00 15 I»1 .IMS 
FRAC(I)«CTS(I)/SUM 

DIV«DIV*FRAC( I )*ALOG( FRAC( X ) )*CONST 
15 FRAC(I)«FRAC(I)-MOO. 
C 

£***** ** 

c * ****** WRITE THE CORRECT VALUES. 

£******* 

c 

DO 20 X-1.NS 
20 WRITE(6.400) (H(K) .K«2,9) ,H( 10) . (CODE( J, I ) , J-1 ,9) . 

1C:TS(2),FRAC(I) f SUM f 0IV 
400 F0RMAT(8A4,6X,A4 t 2X,9A1.F8.1,F7.2 f F8.1.F6.2) 

C 

GO TO 1 
C 
99 STOP 
END 
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TABLE 4.3. Program REF0RMAT2. 



C PROGRAM REFORMAT 2 IS RUN TO REORGANIZE LAKE PHYTOPLANKTON RAW DATA 

C FILES. THIS PROGRAM IS USED FOR NOVEMBER 1970; . ALL MONTHS OF 1975; 

C AND APRIL, MAY, JULY, OCTOBER IN 1976. 

C UNIT 5 IS ASSIGNED TO INPUT FILE, (RAW DATA FILE). 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE, (REFORMATTED DATA FILE). 

C UNIT 7 IS ASSIGNED TO ANOTHER OUTPUT FILE FOR THE VALUES OF DL S SW. 

C 

c 
c 
c 

£******* 

c ******* INITIALIZE VARIABLES. 

£******* 

c 

LOGICAL* 1 C0DEO.200) 

REAL CTS(200).FRAC(200),H(16) 
C 

CONST— 1./AL0G(2.) 
C 

£******* 

c ******* READ THE HEADLINES. 

£******* 

c 

1 READ(5 f 100.END-99) <H(X ) t 1-1 . 16) . XDL. XSW 
100 F0RMAT(16A4,X2,1X.X3) 

WRITE(7,200) XDL, XSW 
200 F0RMAT(X2,1X,X3) 
C 

CF«(IDL*1 . )*41 .4516/ISW 
SUM-O. 
NS»1 
C 

c*****+* 

£***+*** READ 7H£ DATA UNES. 
£******* 

C 
5 REA0(5,3OO.END«1O) (CODE( J.NS) f J»1 .9) .CTS(NS) 
300 F0RMAT(9A1,F7.O) 

IF(CTS(NS).LT.1.) GO TO 10 
CTS(NS)«CTS(NS)*CF 
SUM-SUM+CTS(NS) 
NS-NS+1 
GO TO 5 
C 
10 DIV»0. 
NS-NS-1 
C 

£******* 

£»«*«**« CORRECT THE FRACTION AND DIVERSITY VALUES. 

£***+*+* 

C 

DO 15 1-1. NS 

FRAC(I)-CTS(X)/SUM 

DXV»DIV*FRAC(I)*ALOG(FRAC(I))*CONST 
15 FRAC(X)«FRAC(I)*100. 
C 

******* WR jTE THE CORRECT VALUES. 

******* 

DO 20 I-1.NS 
20 WRITE(6,400) (H(K) , K-2.9) .H( 10) , (CODEC J, X ) , J»1 ,9) . 

1CTS(I).FRAC(I),SUM,DIV 
400 F0RMAT(8A4,6X,A4,2X t 9A1,FB.1,F7.2.FB.1,F6.2) 
C 

GO TO 1 
C 
99 STOP 
END 

34 



TABLE 4.4. Program REF0RMAT3. 



C PROGRAM REF0RMAT3 IS RUN TO REORGANIZE LAKE PHYTOPLANK70N RAW DATA 

C FILES. THIS PROGRAM IS USED FOR APRIL, JULY. OCTOBER IN 1974. 

C UNIT 5 IS ASSIGNED TO INPUT FILE, (RAW DATA FILE). 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE, (REFORMATTED DATA FILE). 

C UNIT 7 IS ASSIGNED TO ANOTHER OUTPUT FILE FOR THE VALUES OF DL & SW. 

C 

C 

c 

c 

c *+*«««« INITIALIZE VARIABLES. 

c 

LOGICAL* 1 C0DEO.200) 
REAL CTS(200),FRAC(200),H(16) 
C 

CONST— 1./AL0G(2.) 

C 

c ««***«* READ TH£ HEADLINES. 

c 

1 READ(5.100.END«99) (H(I) . 1-1 . 16), XDL.ISW 
100 F0RMAT(16A4,X2,1X,X3) 

WRXTE(7,200) IDL.ISW 
200 F0RMAT(I2.1X f I3) 
C 

XF((IDL.E0.O).AND.(ISW.E0.O)) CF-1 

XFUXDL.NE.O).OR.(XSW.NE.O)) CF-( IDL+1 , )»41 .4516/ISW 
SUM-O. 
NS-1 
C 

£»***«** READ THE DATA LJNZS. 

£***♦*** 

c 

5 RE AD (5, 300. END- 10) (CODEC J,NS). J-1 ,9) .CTS(NS) 
300 FORMAT (9A1.F7.0) 

IIF(CTS(NS).LT.1.) GO TO 10 

CTS(NS)-(CTS(NS)/1000. )»CF 

SUM-SUM+CTS(NS) 

NS-NS+1 

GO TO 5 
C 
10 DIV»0. 

NS-NS-1 
C 

c »«** + «,» CORRECT THE FRACTION AND DIVERSITY VALUES. 
C"**«*' 

C 

DO 15 I-1.NS 

FRAC(I)-CTS(X)/SUM • 

DXV-DIV*FRAC(I)*ALOG(FRAC(X))»CQNST 
15 FRAC(I)-FRAC(I)»100. 
C 

c **«»«*« WRITE THE CORRECT VALUES. 

c 

DO 20 X-1.NS 
20 WRXTE(6.400) (H(K) .K-2.9) ,H( 10) , (CODE( J, X ) . J-1 .9) . 

1CTS(I).FRAC(I),SUM.DIV 
400 F0RMAT(BA4,€X,A4,2X f 9A1.F8.1,F7.2.F8.1 t F6.2) 
C 

GO TO 1 
C 
99 STOP 
END 
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TABLE 4.5. Program REF0RMAT4. 



C PROGRAM REP0RMAT4 IS RUN TO REORGANIZE LAKE PHYTOPLANK70N RAW DATA 

C PILES. THIS PROGRAM IS USED POR JUNE. AUGUST. SEPTEMBER IN 197$; AND 

C ALL MONTHS OP 1977. 1970. 1979. 1980. 1901, 1982. 

C UNIT 5 IS ASSIGNED TO INPUT PILE. (RAW DATA PILE). 

C UNIT 6 IS ASSIGNED TO OUTPUT PILE. (REPORMATTED DATA PILE). 

C UNIT 7 IS ASSIGNED TO ANOTHER OUTPUT PILE POR THE VALUES OP DL S SW. 

C 

C 

e 
c 

£»**«*•« INITIALIZE VARIABLES. 

c 

LOGICAL* 1 CODE (9, 200) 
REAL CTS(200),FRAC(200).H(13) 
C 

CONST— 1./AL0G(2.) 

C 

c ****»»* r EAD j He HEADLINES. 

c 

1 READ(5,100,END-99) (H(I ) . 1-1 . 13) .OL.SW 

100 FORMAT* 13A4, 1X.2F4.2) 
IDL-DL 
XSWSW 

VRXTE(7,200) IDL.XSW 
200 F0RMAT(X2,1X.X3) 
C 

CF-(IDL^1.)»41.4516/ISW 
SUM-O. 
NS-1 
C 

c******* 

£»««««•« READ THE DATA LINES. 
C******* 

C 
5 READ(5.300.END*10) (CODEC J.NS) . J-1 .9) .CTS(NS) 
300 F0RMAT(9A1,F7.0) 

XF(CTS(NS).LT.1.) 60 TO 10 
CTS(NS)»CTSiNS)*CF 
SUM-SUM+CTS(NS) 
NS-NS+1 
GO TO 5 
C 
10 DXV-O. 
NS-NS-1 
C . 

c******* 

£»»«•*** CORRECT THE FRACTION AND DIVERSITY VALUES. 

c 

DO 15 X-1.NS 
FRAC(X)«CTS(X)/SUM 

DXV«DXV*FRAC(X)»ALOG(FRAC(X))*CONST 
15 FRAC(X)»FRAC(X)*100. 

C 

£«•**«•# hfRITE THE CORRECT VALUES. 

c 

DO 20 X-1.NS 
20 WRITEC6.400) (H(K) ,K«2.9) .H( 12>. (CODEC J.X ) . J»1 .9) . 

1CTS(X).FRAC(X).SUM t DXV 
400 F0RMAT(8A4.6X,A4.2X,9A1,F8.1.F7.2.F8.1,F8.2) 

C 

GO TO 1 
C 
99 STOP 
END 
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TABLE 4.6. Program PLTAXIRCR. 



RUN *TAXIR 

CREATE LAKE.PHYTOPLANKTON, 

DAY(FROM 1 TO 31), 

MONTH(ORDER,dAN,FEB.MAR,APR,MAY.UUN,dUL.AUG,SEP f OCT,NOV,DEC), 

YEAR(FROM 70 TO 85). 

LOCATION(NAME), 

NAME (NAME), 

TEMPERATURE(FROM .1 TO 40.0), 

CODE (NAME). 

6R0UP(0RDER,C,D.F,G,H,0.P.R,S). 

CELLS(FRQM .1 TO 9999.9). 

FRAC(FROM .01 TO 100.00), 

TOTALCELLS(FROM .1 TO 100000.0). 

OIVERSITY(FROM .01 TO 6.00)* 

ENTER DATA LOCATXON-LREFORM, FORMAT-FIXED. 

DAY<5-6>. 

M0NTH<8-10>, 

YEAR<12-13>, 

L0CATI0N<14-25>, 

NAME<27-30>, 

TEMPERATURE<39-42> . 

C0DE<45-52>, 

GR0UP<53>. 

CELLS<85-61>, 

FRAC<63-68>, 

T0TALCELLS<69-76>, 

DXVERSITY<79-82>* 

SAVE 

STOP 
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Added Parameters 

When the Lake.Phytoplankton data bank was first created, it contained 12 
descriptors but did not include redundancy indexes. It was later felt that 
there was a need to add such indexes; a 13th descriptor called REDUNDANCY was 
created, and its values were added to the data bank. Because the values needed 
to calculate redundancy were not available, they were derived as follows: 

Step 1: Use Redundancy program (Table 4.7) to assemble the values corres- 
ponding to the numbers of forms, diversities, and total cells 
from the phytoplankton tables. 

Step 2: Use Predundancy program (Table 4.8) to compute redundancy indexes 
from these values assembled from the phytoplankton tables. 

The newly created descriptor REDUNDANCY was then added to the Lake.Phyto- 
plankton data bank by first using the Taxir Statement of Define More Descriptor 
which is shown as follows: 

DMD REDUNDANCY (FROM 0.000 to 1.0000) 

Then, Correction Statement was used to enter the values of the descriptor 
into the data base. An example of this procedure is shown later. 

Data Tape and Taxir Table 

The complete Lake.Phytoplankton data bank is saved on tape with volume name 
COOK and ID Code COOK, beginning at first position. 

An example of the use of the Taxir program to generate a table for reports 
is shown in Table 4.9. 
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TABLE 4 ,.7. Program REDUNDANCY. 



C PROGRAM REDUNDANCY PROVIDES THE VALUES CORRESPONDING TO THE 

C NUMBERS OF FORMS, DIVERSITIES AND TOTAL CELLS . 

C UNIT 5 IS INPUT FILE, (PHYTOPLANKTON TABLES). 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE. 

C 

C 

C 

C 

£*#***** 

£**+++** INITIALIZE VARIABLES. 
£++*«*+* 

C 

L0GICAL*4 UNDL/' '/.UNDL1 , TITLE/ 'Tota'/.T1 

LOGICAL* 1 DATE(9).C0DE(9),E0UC.T0TAL(9) 
C 

£*****+* 

£**•*«++ R e A o THE LOOP. 

£*+**#** 
C 

1 READ(5,100.END-99) UNOL1 
100 F0RMAT(3X V A4) 

IF(EQUC(UN0L.UNDL1)) GO TO 2 



C 

C 

2 

1 

C 



GO TO 1 

2 CALL SKIP<0,2,5) 

REA0(5,1O1) DATE. CODE, N.DIV 

101 F0RMAT(2X,9A1.9X,9A1,55X,I4,34X 9 F6.2) 
N1»(N+1)/2*5 

CALL SKIP(0,N1.5) 
READ<5,102) T1, TOTAL 

102 F0RMAT(1O1X,A4,4X,9A1) 
IF(E0UC(T1, TITLE)) GO TO 4 

C 

DO 5 I-1.N1 

READ(5,102) T1, TOTAL 

IF(EQUC(T1, TITLE)) GO TO 4 
5 CONTINUE 
C 

£,***++« CHECK THE ERRORS. 
£»«***«* 

c 

WRITE (6. 104) CODE. DATE 
104 FORMAT('*-*ERROR«** TOTAL NOT FOUND FOR STATION: '.9A1.1X. 
& 'ON DATE: '.9A1) 
STOP 99 
C 

£***+*+* 

£*++*«*« WRITE THE CORRECT VALUES. 

£*♦+**** 

c 

4 WRITE(6.103) DATE .CODE .N, TOTAL. DIV 

103 FORMAT ( 1X.9A1 . 1X.9A1 , 1X, 14 , 1X.9A1 , IX , F6 . 2) 
C 

GO TO 1 
C 
99 STOP 
END 
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TABLE 4.8. Program PREDUNDANCY. 



C PROGRAM PREDUNDANCY READS IN STATISTICS ON PHYTOPLANKTON CATCHES 

C PROM UNIT 5. COMPUTES A REDUNDANCY INDEX AND WRITES THE OUTPUT 

C TO UNIT 6. 

C 

C 

C 

C 

c «****** INITIALIZE VARIABLES. 

c 

LOGICAL* 1 DATE(9),C0DE(9) 
C 

c *«««««, READ 7HE STATISTICS. 

c 

3 READ(5, 1.EN0-4) DATE, CODE t N, A.DIV 

1 F0RMAT(1X,9A1,1X f 9A1,1X t I4,1X,F9.1,1X,F6.2) 
C 

£**#***♦ 

c * ****** COMPUTE THE REDUNDANCY INDEX. 

£******* 

c 

B-2*A*3.1416 
B-SORT(B) 
B«ALOG10(B) 
C-A/2. 71828 
C»A»ALOG10(C) 
D«2*3.1416*(A/N) 
D"SORT(D) 
D»AL0G1O(D) 
E«(A/N)/2. 71828 
E-(A/N)*ALOG10(E) 
F-(B*C) 
G-(D+E)*N 

DMAX«(3.3219/A)*(F-G) 
T»2-3.1416*(A-(N-1.)) 
U-(A-(N-1.))/2. 71828 
T«SORT(T) 
T«AL0G1O(T) 
V«(A-(N-1.)) 
U«V*ALOG10(U) 
U-U+T 

DMIN«(3.3219/A)*(F-U) 
RI«(DMAX-DIV)/(DMAX-DMIN) 
C 

£******* 

£******* WR jTE THE OUTPUT. 

£******* 

c 

VRXTE(6.2) DATE. CODE, RI 

2 FORMAT ('0' 9 9A1,1X.9A1,' REDUNDANCY » '.E10.3) 
C 

GO TO 3 
C 

4 STOP 
END 
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TABLE 4.9. An example of generating tables using Taxir program. 



RUN •TAXIR 

GET LAKE . PHYTQPLANKTON 



YEAR 



MONTH 



LOCATION 



CODE 



GROUP 



CELLS 



'<P1>, 
,'<P1>, 

(;|'<P1,A>, YEAR<P4>, '|'<P9,A>. M0NTH<P13>, '|'<P18.A>. L0CATI0N<P22>. 
' '<P31.A>, C0DE<P34>, '|'<P44,A>, GR0UP<P49>, '|'<P54.A>, CELLS<P57>, 
'<P65,A>) FOR ITEMS WITH FRAO50.0* 



No. of Items in query response: 167 
No. of Items 1n data bank: 90078 
Percentage of response/total data bank: 



0.19% 



YEAR 


| MONTH 


! LOCATION 


| CODE 


j GROUP 


i CELLS j 


70 


\ NOV 


! DC-2 
DC-3 
DC-5 
NDC.21 
NDC.SO 
NDC.51 
NDC1-1 


j OCSPECAA 


j F 


| 131.3 ! 
125.3 
137.7 
157.5 
104.6 
169.0 
158.0 






NDC2-0 


CGSPECAA 




420.0 






SDC.21 


OCSPECAA 




61.7 




| 


SDC.50 






41.9 




i 
| 


SDC1-0 






178.2 




i 


SDC2-4 


CGSPECAA 




155.7 






SDC4-0 






348.2 






SDC7-2 






300.3 






SDC7-3 






327.9 


71 


JUL 


DC-2 
DC-4 
DC-5 
NDC7-1 
NDC7-2 
j NDC7-3 


CLSPECAA 


G 


1118.3 

! 1208.7 

357.3 

! 2793.7 

1194.8 

1894.6 




SEP 


! NDC.52 
NDC2-4 






169.4 \ 
167.0 






NDC4-0 


MESPECAA 


C 


803.7 






SDC.52 


GLSPECAA 


G 


126.7 


















SDC1-2 






125.7 \ 






SDC1-3 






187.0 






SDC4-3 




















72 


JUL 


NDC1-2 


TAFENEST 


P 


63.1 






NDC4-3 


FRCROTON 




165.2 






NDC7-5 


CGSPECAA 


F 


39.9 






SDC.52 


TAFENEST 


P 


104.4 




OCT 


DC-6 


CHL1MNET 


R 


460.3 






NDC1-0 


MEGRANUL 


C 


834 . 8 






NDC1-1 






1400.4 






NDC2-0 






1105.6 






NDC2- 1 






1500.6 






NDC4-0 






1254.0 






NDC4-1 






3964.1 






NDC4-4 : 


CHL1MNET 


R 


415.3 






NDC7-1 


MEGRANUL 


C 


3984.5 






NDC7-3 






756, 8 






SDC1-0 






2919.8 






SDC1-1 






1736.3 






SDC2-0 






897.8 \ 






SDC4-1 






1098.8 \ 






SDC4-4 


CHL1MNET j 


R j 


368 . 9 


73 

i 


JUL j 


DC-3 
SDC4-3 j 


CYSTELLI 

i 


C ' 

i 


311.4 
827.5 j 
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An Example for Preparing the Phytoplankton Computer Data Base 

In order to add a new data file which we call "RDJUN82" and its redundancy 
index to the established data base, the following procedure is followed t 

#SIG XXXX (signon MTS) 

#XXX (Password) 

(The following statements reformat the data set*) 

#RUN *FTN SCARDS -REFORMAT 4 SPUNCH-FOR.OBJ 

#RUN FOR. OBJ 5-RDJUN82 6»REFORMJUN82 

(To run the Taxir program to enter the data into the data bank) 

#RUN *TAXIR 

GET LAKE. PHYTOPLANKTON 

ENTER DATA LOCATION-LREFORMJUN82 FORMAT=FIXED, 

DAY<5-6>, 



Same as in PLTAXIRCR 



SAVE 

STOP 

(To compute the redundancy index) 

#RUN *FTN SCARDS=REDUNDANCY SPUNCH*RED.OBJ 

#RUN RED. OBJ 5-PHYT0JUN82 6-RJUN82 

#RUN *FTN SCARDS-PREDUNDANCY SPUNCH=*PRED.OBJ 

#RUN PRED.OBJ 5=RJUN82 6=PRJDN82 

(Run Taxir program to enter redundancy index into the data bank.) 
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//RUN *TAXIR 

GET LAKE.PHYTOPLANKTON 

CORRECTION (REDUNDANCY***,***) *MONTH=JUN AND YEAR=82 AND LOCATION=DC-0* 

(entering redundancy values for different locations of month of June) 

CORRECTION (REDUNDANCY^*.***) *MONTH=JUN AND YEAR=82 AND LOCATION=NDC7-5* 

SAVE 

STOP 

#SIG$ (sign off MTS) 

* 
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ENTRAINED PHYTOPLANKTON 

The Entrained. Phytoplankt on data bank contains 63,748 items and 21 des- 
criptors. The descriptors are listed as follows: 

1-DAY 12-REDUNDANCY 

2-MONTH 13-CHL0R0PHYLL A 

3-YEAR 14-CHL0R0PHYLL B 

4-L0CATI0N 15-CHL0R0PHYLL C 

5-TIME 16-PHAEOPHIN 

6-SPECIES CODES 17 -CHLOROPHYLL A INCUBATED 

7-MAJOR GROUPS 18-CHL0R0PHYLL B INCUBATED 

8-CELLS 19 -CHLOROPHYLL C INCUBATED 

9-FRACTION 20-PHAEOPHIN 

10-DIVERSITY 21 -HOURS INCUBATED 

11 -TEMPERATURE 

The number of data items collected for Entrained. Phytoplankt on data bank 
beginning in 1975 is listed in Table 4.10. 
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TABLE 4.10. The number of data items in Entrained. Phytoplankton data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total if 
of Items 



Year Month 



Total # 
of Items 



75 



76 



77 



FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 



460) 
465) 
290) 
237) 
590) 
619) 
534) 
441) 
659) 
604) 
559) 
653) 
687) 
711) 
673) 
723) 
789) 

1,054) 
641) 

1,017) 
706) 
686) 
678) 
635) 
666) 
557) 
769) 
692) 
563) 
724) 
627) 
559) 
677) 



78 



79 



JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
JAN 
FEB 
MAR 
APR 
MAY 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 



692) 

587) 

483) 

661) 

983) 

1,023) 

1,254) 

899) 

1,208) 

1,408) 

871) 

991) 

1,074) 

838) 

1,021) 

537) 

465) 

384) 

870) 

1,033) 

1,210) 

678) 

732) 



80 



81 



82 



JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
JAN 
FEB 
MAR 
APR 
MAY 



795) 
788) 
795) 
870) 
793) 
638) 
487) 
1,099) 
1,259) 
1,047) 
634) 
617) 
879) 
811) 
797) 
742) 
793) 
513) 
475) 
865) 
1,174) 
632) 
754) 
792) 
911) 
624) 
888) 
723) 
706) 
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The steps for creating the En trained. Phytoplankt on data bank were similar 
to the ones that were described for the Lake.Phytoplankton data bank. They are 
shown as follows : 



Raw Data File 



Reformat Program 



Flat Data File 



Taxir Create Program 



ENTRAINED . PHYTOPLANKTON 



Add Additional Parameters 



ENTRAINED . PHYTOPLANKTON 



Original Data and Reformat Program 

Original data are stored on the computer tape in a file such as RDENTXXXXX, 
where the first XXX is a code for month and the second XX is a code for the year 
(for example, RDENTAPR82). The entrainment data files prior to 1980 are stored 
on a tape called PHYTO. The 1980, 1981, and 1982 data files can be found 
on a tape called PHYT02. 

The Reformat Program for entrained phytoplankton is called EREFORMAT. 
This program is very similar to that used for lake phytoplankton. A listing 
of this program is given in Table 4.11. 
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TABLE 4.11. Program EREFORMAT. 



C PROGRAM EREFORMAT IS USED 70 REORGANIZE EN7RAINMEN7 PHY70PLANKTON 

C RAW DA7A FILES. 

C UNI7 5 JS ASSIGNED 70 INPU7 FILE. (RAW DA7A FILE). 

C UNI7 6 IS ASSIGNED 70 OU7PU7 FILE, (REFORMA77ED DA7A FILE). 

C UNI7 7 IS ANOTHER OUTPUT FILE FOR 7HE VALUES OF DL AND SW. 

C 

C 

C 

C 

£•«•»*«« INITIALIZE VARIABLES. 

c 

LOGICAL* 1 C0DE(9,2OO) 

REAL CTS(200).FRAC(200).H(13) 
C 

C0NST»-1./AL0G(2.) 
C 

^♦♦♦••« 
c »«**«««. *£40 THE HEADLINES. 

C 
1 READ(5.100.END-99) <H(X).X-1.13).DL.SW 
100 FORMAT (13A4.1X.2F4. 2) 

IDL-DL 

xsw-sw 

VRITE(7,200) XDL.XSW 
200 F0RMAT(X2,1X,X3) 

CF«( IDL-M . )*41 .4516/XSW 
C 

SUM»0. 
NS-1 

c 
c******* 

£**••««« read 7HE DA7A LINES. 

C 
5 RK AD (5. 300, END- 10) (CODEC J,NS) . J-1 ,9) ,CTS(NS) , 
300 FORMAT (9A1.F7.0) 

XF(CTS(NS).LT.1.) GO TO 10 

CTS(NS)-CTS(NS)*CF 

SUM«SUM*CTS(NS) 

NS«NS*1 

GO TO 5 
C 
10 DXV-O. 

NS-NS-1 

c 

c *«««*«,» C0RREC7 7HE FRACTION AND DIVERSI7Y VALUES. 

C 

00 15 X-1.NS 

FRAC(X)«CTS(X)/SUM 

DIV-DX V*FRAC( I )»ALOG(FRAC( X ) )*CONST 
15 FRAC(X)»FRAC(X)*100. 
C 

£••«•»•» MI7£ THE C0RREC7 VALUES. 

C 

00 20 X«1,NS 
20 ¥RXTE(6,400) (H(K) , K-2,9) , (CODE( J. I ) , J- 1 .9) , 

1CTS<I),FRAC(I).SUM.DXV.M<12) 
400 FORMAT (8A4. 2X, 9A 1. F8. 1.F7. 2. F8. 1,F6.2 ( ,2X.A4) 
C 

GO TO 1 
C 
99 STOP 
END 
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Taxir Create Program for Entrained Phytoplankton 

To establish the Entrained. Phytoplankton data bank, a Taxir Create program 
PETAXIRCR (Table 4.12) is used. This program uses the entrained phytoplankton 
data in flat-file form to store them in a Taxir data bank called 
Entrained. Phytoplankton. 

Added Parameters 

Additional descriptors were added to the Entrained. Phytoplankton data bank. 
These descriptors are Chlorophyll a_, Chlorophyll b^, Chlorophyll c_, Phaeophin, 
Chlorophyll ji Incubated, Chlorophyll b^ Incubated, Chlorophyll c^ Incubated, 
Phaeophin Incubated, Hours Incubated, and Redundancy Index. The values for 
Chlorophyll and Phaeophin are obtained by using the computer program ORGANTABLE 
(Table 4.13). This program selects the parameter information from the chloro- 
phyll and phaeophin tables. Running the above program results in the output 
data files corresponding to these parameters which are in a form such that Taxir 
Statement CORRECTION can be applied. In this way, these additional descriptors 
are stored in the already established Entrained. Phytoplankton data bank. 

In order to merge the additional descriptors with appropriate cases of 
entrained phytoplankton, identification codes (ID codes) of YEAR, MONTH, DAY, 
LOCATION, and TIME were used. Because the specific times of collection are 
different at each sampling but the periods basically correspond to morning, 
noon, and evening periods, these periods were used in place of actual sampling 
time for ID codes. These periods are shown as follows: 

Morning 2-8:30 a.m. 
Noon 8:30-14:00 p.m. 

Evening 18:00-24:00 p.m. 
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TABLE 4.12. Program PETAXIRCR. 



RUN *TAXIR 

CREATE ENTRAINED. PHYTOPLANKTON, 

DAY(FROM 1 TO 31), 

MONTH(ORDER,JAN,FEB,MAR,APR.MAY, JUN, JUL, AUG, SEP. OCT, NOV, DEC) , 

YEAR(FROM 70 TO 85), 

LOCATION(NAME), 

TIME (FROM 1 TO 2400), 

CODE (NAME), 

GROUP(ORDER,C.D,F.G,H,0,P.R,S), 

CELLS (FROM .1 TO 9999.9). 

FRAC(FROM .01 TO 100.00). 

DIVERSITY(FROM .01 TO 6.00), 

TEMPERATURE (FROM 0.0 TO 100.0)* 

ENTER DATA LOCATION-EREFORM, FORMAT-FIXED. 

DAY<7-8>, 

M0NTH<10-12>, 

YEAR<14-15>, 

L0CATI0N<18-20>. 

TIME<22-25>, 

C0DE<35-42>, 

GR0UP<43>, 

CELLS<46-51>, 

FRAC<53-58>, 

DIVERSITY<69-72>. 

TEMPERATURE<74-78>« 

SAVE 

STOP 
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TABLE 4.13. Program ORGANTABLE, 



C PROGRAM ORGANTABLE IS FOR REORGANIZING THE CHLOROPHYLL AND PHAEOPH1N 

C VALUES FROM THEIR TABLES. THE INPUT FILES ARE: 

C UNIT 4; CHLOROPHYLL A TABLE. 

C UNIT 5; CHLOROPHYLL B TABLE. 

C UNIT 6; CHLOROPHYLL C TABLE. 

C UNIT 7; PHAEOPHYTIN TABLE. 

C THE OUTPUT FILE IS UNIT 8 WHICH CONTAINS THE TAXJR CORRECTION 

C STATEMENTS. LATER BY SETTING THE SOURCE FILE EQUAL TO THE OUTPUT 

C FILE THE UNKNOWN CHLOROPHYLL AND PHAEOPH1N VALUES CAN BE ADDED TO 

C ENTRAINED. PHYTOPLANKTON DATA BANK. 

C 

C 

C 

C 

C+++++++ INITIALIZE VARIABLES. 

c 

REAL LOCTON, ME ANA, MEANB, MEANC, MEANP 
INTEGER MONTH, DAY, YEAR. TIME. HRSINC 
C 

C **«**** R£AD 7HE M£AN VALU is, (ONE AT A TIME). 

£+++++++ 

c 

100 READ(4,1,EN0-99) MONTH, DAY , YEAR, TIME, LOCTON,HRSINC.MEANA 
READ (5, 2) MEANB 
READ(6,2) MEANC 
READC7.2) MEANP 

1 F0RMAT(11X,3(I2.1X),I4,1X,A2.1X,I2,9X,E10.3) 

2 F0RMAT(39X,E10.3) 
C 

Cm ++ m +++ CHECK THE TOTAL HOURS OF INCUBATION FOR EACH SAMPLE 

£•»*•«,» AND CONSTRUCT TAXIR CORRECTION STATEMENTS. 
C 0*++.++ 

C 

IF(HRSINC.EO.O) GO TO 10 

IF((TIME.GE. 200). ANO. (TIME. LE . 830)) GO TO 20 

IF((TIME.GT. 830). AND. (TIME. LE. 1400)) GO TO 30* 

WRITE (8, 3) MEANA, MEANB. MEANC, MEANP, HRSINC, YEAR. MONTH, DAY .LOCTON 

3 FQRMAT(1X,'C ( 17« ' , F8 .4, ' ) ' . 1X, ' ( 18« ' , F8 .4. ' ) ' . 1X, 
1'(19«',F8.4.')'.'(20«'.F8.4,')',1X t '(21«'.I2,')',1X,'*3«'. 
112,' & 2«'.I2.' & 1«',I2,' & 4»',A2,' & 5>1800 & 5<2400« ' ) 

GO TO 100 
C 
20 WRITE (8, 4) MEANA, MEANB, MEANC, MEANP, HRSINC, YEAR, MONTH, DAY, LOCTON 

4 FORMATOX. 'C ( 17» ' ,F8 . 4 . ' ) ' , 1X, ' ( 18« ' , F8 .4, ' ) ' . 1X, 
1'(19-'.F8.4,')'.'(20»'.F8.4, ' ) ' . 1X, ' (21« ' , 12, ' ) ' , 1X, ' *3« ' . 
112,' & 2»'.I2,' & 1«',I2,' & 4«',A2,' & 5>200 & 5<830» ' ) 

GO TO 100 
C 
30 WRITE ( 8 . 5 ) MEANA , MEANB . MEANC , MEANP . HRSINC , YEAR , MONTH , DAY . LOCTON 

5 FORMAT (1X, 'C ( 17« ' . F8 . 4 . * ) ' . 1X , ' ( 18- ' , F8 . 4 , ' ) ' . 1X , 
1'(19»',F8.4.')'.'(20«' ,F8.4. ' ) ' , 1X, ' (21- ' . 12 . ')'.1X. '»3«'. 
112,' & 2«',I2.' & 1»',I2.' & 4«',A2,' & 5>830 & 5<1400-') 

GO TO 100 
C 
10 IF((TIME.GE. 200). AND. (TIME. LE. 830)) GO TO 40 
IF ( (T IME. GT .830) .AND. (TIME. LE. 1400)) GO TO SO 
WRITE (8. 6) ME AN A. MEANB, MEANC, MEANP, HRSINC, YEAR. MONTH, DAY .LOCTON 

6 FORMAT ( 1X,'C (13*'.F8.<a. , )',1X,'(14»',F8.4.')'.1X, 

1 ' ( 15- ' ,F8. 4 , ' )' . '(16* ' ,F8. 4, ' )' , 1X, '(2f- ' .12. ' )' , 1X, '*3- ' . 
112,' S 2- ',12.' & W.I 2,' S 4»',A2.' & 5>1800 & 5<2400 m ' ) 
GO TO 100 

Q 

Continued on next page. 
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TABLE 4.13. (Continued). 



40 WRITE (8, 7) MEANA.MEANB.MEANC.MEANP, HRSINC, YEAR, MONTH, DAY . LOCTON 

7 FORMAT* 1X,'C ( 13- ' , F8 .4, ' ) ' . 1X, ' ( 14« ' , F8 .4 . ' ) ' , 1X . 
1'(15«',F8.4,')' f '(16«',F8.4,')',1X.'(21-',I2,')'.1X.'»3«', 
112,' & 2«',I2.' & 1«'.I2,' & 4»',A2,' & 5>200 & 5<830- * ) 

GO TO 100 
C 
50 WRITE (8.8) MEANA . MEANB . MEANC , MEANP , HRSINC , YE AR , MONTH , DAY . LOCTON 

8 FORMAT* 1X, 'C ( 13» ' ,F8 .4, ' ) ' , 1X f ' ( 14- • % F8 .4 , ' ) ' , 1X, 
1'(15«',F8.4 t ')','(16«',F8.4, ')'.1X, '(21«',I2. ')',1X.'*3-'. 
112.' & 2«',I2,' & 1-',I2,' & 4«',A2.' & 5>830 & 5<1400»') 

GO TO 100 



C 

99 STOP 
END 
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Computer commands used in this process are shown below: 



#RUN *FIN SCARDS=ORGANTABLE SPUNCH=-LOAD 
#RUN -LOAD 4=CHL0RAXX 

5=CHL0RBXX 

6=CHL0RCXX 

7=PHAXX 

8=CHLPHAXX 
//SOURCE CHLPHAXX 



(XX=YEAR) 

(4,5,6,7)=INPUT FILES 
8=0UTPUT FILE 



Data Tape 

The complete Entrained. Phytoplankton data bank with 21 descriptors is saved 
on the tape called COOK beginning at the 2nd position. 
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LAKE ZOOPLANKTON 

The Lake.Zooplankton data bank contains 32,113 items and 10 descriptors. 
The descriptors are: 

1-STATI0N 
2-MONTH 
3-YEAR 
4-DEPTH 
5-TAXON # 
6-C0UNT 
7-PCCOMP 
8-TAX0N 
9-TEMPERATURE 
10-SECCHI DISC 

The monthly number of data items collected for lake zooplankton beginning 
in July 1970 is listed in Table 4.14. 
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TABLE 4.14. The number of data items in Lake.Zooplankton data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



70 



71 



72 



73 



74 



JUL < 


: 459) 


SEP I 


: 508) 


NOV 1 


[ 461) 


APR ( 


; 189) 


JUL < 


: 464) 


SEP ( 


; 603) 


NOV < 


: 402) 


APR ( 


: 421) 


MAY < 


: 90) 


JUN ( 


: io4) 


JUL ( 


: 353) 


AUG ( 


: 121) 


SEP ( 


: ii6) 


OCT ( 


; 393) 


NOV ( 


: us) 


APR ( 


: 4i7) 


MAY ( 


: 134) 


JUN < 


: 167) 


JUL ( 


; 566) 


AUG < 


: 173) 


SEP ( 


: i7i) 


OCT ( 


; 582) 


APR ( 


; 389) 


MAY ( 


; 223) 


JUN ( 


; 247) 


JUL ( 


: 511) 


AUG ( 


: 307) 


SEP ( 


; 307) 


OCT ( 


; 606) 



75 



76 



77 



78 



APR < 


; 441) 


MAY ( 


; 228) 


JUN < 


; 312) 


JUL ( 


: 630) 


AUG < 


; 718) 


SEP ( 


; 322) 


OCT ( 


: 611) 


DEC ( 


: 28i) 


APR < 


: 391) 


MAY ( 


: 488) 


JUN ( 


: 260) 


JUL ( 


; 637) 


AUG ( 


; 336) 


SEP ( 


: 323) 


OCT ( 


; 593) 


APR < 


; 442) 


MAY ( 


: 215) 


JUN ( 


; 250) 


JUL ( 


: 635) 


AUG ( 


: 318) 


SEP ( 


: 321) 


OCT ( 


; 660) 


NOV ( 


: 288) 


DEC < 


: 238) 


APR ( 


; 454) 


MAY ( 


: 260) 


JUN ( 


; 282) 


JUL < 


: 570) 


AUG ( 


; 304) 


SEP 1 


: 337) 


OCT ( 


: 702) 


NOV < 


: 309) 



79 



80 



81 



82 



APR ( 


; 431) 


MAY ( 


I 211) 


JUN < 


; 204) 


JUL < 


: 582) 


AUG ( 


; 298) 


SEP ( 


; 280) 


OCT ( 


: 677) 


NOV ( 


: 296) 


APR < 


; 488) 


MAY ( 


: 253) 


JUN < 


: 262) 


JUL < 


; 489) 


AUG { 


; 299) 


SEP < 


; 342) 


OCT ( 


; 625) 


NOV ( 


: 251) 


APR ( 


: 401) 


MAY ( 


: 243) 


JUN < 


: 214) 


JUL ( 


; 456) 


AUG < 


: 305) 


SEP ( 


: 312) 


OCT < 


; 547) 


NOV < 


: 290) 


APR { 


: 416) 


MAY ( 


: 186) 
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The steps for constructing this data bank follow the flow diagram shown 
below: 



SURVEY70-82 ! 



Taxir Conversion 



Flat Data File 



Error Corrections 



Corrected Flat Data 
File 



Taxir Create Program 



LAKE.ZOOPLANKTON 



Added Parameters 



LAKE.ZOOPLANKTON 



Lake.Zooplankton Data Bank 

The Lake.Zooplankton data bank was established using the steps listed 
above. These steps are the same as those taken for the establishment of the 
phytoplankton data bank, except that the length for each descriptor name was 
reduced to six characters, which is the maximum number of labeling characters 
that MIDAS permits. Two descriptors, TEMPERATURE and SECCHI DISC, were also 
added to this data set. These additions were made using the Taxir Statement 
CORRECTION. Both the steps for adding additional parameters and procedures 
which were used to create the Lake.Zooplankton data bank are shown below: 
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1) Convert the SURVEY70-82 ! to a line file. 
//RUN *TAXIR 

GET SURVEY70-82! 

Q<DATA, SURVEY> ALL *ALL* 

STOP 

2) Correct the errors in the SURVEY data file. 
#Ed SURVEY 

:A@A /F ; JANUARY; J ANbbbb; 



:A@A /F ; DECEMBER ;DECbbbbb; 
:A@A /F ;DC-0-0;DC-Obb; 



:A@A /F ;NDC-7-5;NDC 7-5b; 

:STOP 

//SOURCE ZLTAXIRCR 

3) (Add values of SECCHI DISC and TEMPERATURE to the data bank. 

CORRECTION (SECCHIDISC=. . . . ) AND (TEMPERATURE= ) 
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*MONTH= AND YEAR= AND STATION=. . . .* 



SAVE 
STOP 
ZLTAXIRCR is presented in Table 4.15. 

Data Tape 

The final version of the Lake.Zooplankton data bank is saved on the tape 
called COOK at the 3rd position. 
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TABLE 4.15. Program ZLTAXIRCR. 



RUN *TAXIR 

CREATE LAKE.ZOOPLANKTON. 

MONT^^ 

YEAR(FROM 69 70 85), 

DEPTH(FROM TO 60), 

TAXON #(FROM 10001 TO 99999), 

COUNT(FROM TO 1000000). 

PCCOMP(FROM 0.00 TO 100.00), 

TAXON(NAME). 

TEMPERATURE (FROM 0.1 TO 40.0), 

SECCHI DISC(FROM 0.00 TO 100.00)* 

ENTER OATA LOCATION-SURVEY. FORMAT-FIXED. 

STATI0N<1-8>, 

M0NTH<10-18>. 

YEAR<20-21>. 

DEPTH<23-24>, 

TAXON *<26-30>. 

C0UNT<32-38>, 

PCCOMP<40-45>, 

TAX0N<47-81>, 

TEMPERATURE<83-86> . 

SECCHI 0ISC<88-93>* 

SAVE 

STOP 



58 



ENTRAINED ZOOPLANKTON 

The Entrained.Zooplankton data bank consists of 19,703 items and 11 des- 
criptors. The descriptors are listed below: 

1-TYPE 

2 -GRATE 

3-MONTH 

4-DAY 

5-YEAR 

6-TIME 

7-TAXON # 

8-COUNT 

9-PCCOMP 
10-TAXON 
11 -TEMPERATURE 

The monthly number of data items collected for entrained zooplankton 
beginning in 1975 is listed in Table 4.16. 
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TABLE 4.16. The number of data items in Ent rained. Zooplankt on data bank. 







Total # 




Total # 




Total # 


Year Month 


of Items Year Month 


of Items Year Month 


of Items 


75 JAN 


( 30) 


78 JAN 


(165) 


80 JAN 


(304) 


FEB 


(149) 


FEB 


( 95) 


FEB 


(170) 


MAR 


(118) 


MAR 


( 88) 


MAR 


(151) 


APR 


(126) 


APR 


(120) 


APR 


(185) 


MAY 


(121) 


MAY 


(184) 


MAY 


(224) 


JUN 


(166) 


JUN 


(336) 


JUN 


(163) 


JUL 


(204) 


JUL 


(523) 


JUL 


(146) 


AUG 


(218) 


AUG 


(550) 


AUG 


(266) 


SEP 


(222) 


SEP 


(355) 


SEP 


(330) 


OCT 


(203) 


OCT 


(445) 


OCT 


(276) 


NOV 


(182) 


NOV 


(197) 


NOV 


(169) 


DEC 


(142) 


DEC 


(401) 


DEC 


(155) 


76 JAN 


(153) 


79 JAN 


(235) 


81 JAN 


(203) 


FEB 


(101) 


FEB 


(179) 


FEB 


(134) 


MAR 


(101) 


MAR 


(210) 


MAR 


(150) 


APR 


(109) 


APR 


(151) 


APR 


(119) 


MAY 


(156) 


MAY 


(191) 


MAY 


(216) 


JUN 


(258) 


JUN 


(166) 


JUN 


(117) 


JUL 


(312) 


JUL 


(396) 


JUL 


(152) 


AUG 


(509) 


AUG 


(535) 


AUG 


(326) 


SEP 


(192) 


SEP 


(436) 


SEP 


(417) 


OCT 


(189) 


OCT 


(383) 


OCT 


(138) 


NOV 


(184) 


NOV 


(273) 


NOV 


(158) 


DEC 


(173) 


DEC 


(266) 


DEC 


(258) 


77 FEB 


( 33) 






82 JAN 


(220) 


MAR 


(187) 






FEB 


(128) 


APR 


(160) 






MAR 


(213) 


MAY 


(138) 






APR 


(179) 


JUN 


(175) 






MAY 


(171) 


JUL 


(436) 










AUG 


(598) 










SEP 


(312) 










OCT 


(290) 










NOV 


(174) 










DEC 


(164) 
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Entrained .Zooplankton Data Bank 

The Entrained. Zooplankton data bank contains 11 descriptors; the last 
of which, TEMPERATURE, was added to this data base after it was created by 
the Taxir program. The final version of the Entrained. Zooplankton data bank 
is stored on the tape COOK at the 4th position. 
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LAKE BENTHOS 

The Lake. Benthos data bank has 72,504 items and 16 descriptors • 
The descriptors are: 

1-YEAR 

2-MONTH 

3-REGION 

4-ZONE 

5-DEPTH 

6-CON.FACT 

7-AREA 

8-STATION 

9-GROUP 
10-CODE 
11 -CELLS 
12 -PRIM SED 
13 -SEC SED 
14-TERT SED 
15-QUAT SED 
16-V0LUME 

The number of data items collected for the Lake. Benthos data bank is 
shown by months in Table 4.17. 
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TABLE 4«17. The number of data items in Lake. Benthos data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



70 7 ( 


: 595) 


11 ( 


; 817) 


71 4 ( 


; 702) 


7 ( 


; 857) 


11 < 


: 610) 


72 4 < 


; 898) 


5 ( 


: 318) 


6 ( 


: 363) 


7 < 


:i,970) 


8 ( 


: 371) 


9 ( 


; 294) 


10 < 


;i,996) 


11 ( 


: 335) 


73 4 ( 


;i,774) 


5 ( 


; 222) 


6 ( 


; 440) 


7 ( 


[3,074) 


8 < 


; 448) 


9 ( 


; 486) 


10 < 


[2,173) 


74 4 ( 


;2,030) 


5 { 


: 600) 


6 ( 


; 753) 


7 ( 


[1,629) 


8 < 


[ 879) 


9 ( 


[ 844) 


10 ( 


[1,327) 



75 



76 



77 



4 ( 


[1,065) 


5 < 


[ 696) 


6 ( 


[ 784) 


7 ( 


[1,862) 


8 < 


[1,030) 


9 ( 


[ 934) 


10 ( 


[1,301) 


12 < 


[ 561) 


4 < 


[1,081) 


5 ( 


[ 667) 


6 ( 


[ 434) 


7 ( 


[1,360) 


8 ( 


[ 536) 


9 ( 


[ 495) 


10 ( 


[1,036) 


4 ( 


[1,153) 


5 ( 


[ 533) 


6 ( 


[ 515) 


7 < 


[1,884) 


8 < 


[ 565) 


9 ( 


[ 614) 


10 | 


[1,373) 


11 ( 


[ 642) 


12 < 


[ 543) 



78 



79 



80 



81 



82 



4 ( 


[ 980) 


5 ( 


[ 482) 


6 ( 


[ 564) 


7 < 


[1,881) 


8 < 


[ 585) 


9 < 


[ 652) 


10 ( 


[1,572) 


11 i 


[ 599) 


4 ( 


[ 698) 


5 ( 


[ 556) 


6 < 


[ 627) 


7 { 


[ 949) 


8 ( 


[ 576) 


9 < 


[ 531) 


10 ( 


[ 911) 


11 1 


: 545) 


4 ( 


[ 625) 


5 ( 


[ 570) 


6 ( 


[ 539) 


7 ( 


: 922) 


8 ( 


[ 582) 


9 l 


[ 625) 


10 | 


[ 882) 


11 1 


[ 445) 


4 { 


[ 701) 


5 < 


: 478) 


6 ( 


[ 532) 


7 ( 


: 839) 


8 ( 


[ 586) 


9 ( 


[ 598) 


10 < 


[ 881) 


11 < 


[ 490) 


4 ( 


[ 556) 


5 ( 


[ 476) 
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Procedures for establishing the Lake. Benthos data bank are shown by the 
following flow diagram: 



MIDAS Lake Benthos Data 
79-82 



MIDAS Lake Benthos Data 
70-78 



Use MIDAS Conversion 



Line File 



Line File 



Use Reformat Program 
Add Additional Parameters 






Flat Data File 



Flat Data File 



Taxir Create 
Program 

LAKE. BENTHOS 



Lake .Benthos Data Bank 

The original Lake Benthos data were stored in MIDAS internal files 
C00KMERGE and C00K79-82. The former houses the data between 1970 and 1978, 
and the latter contains the data between 1979 and 1982. The procedures 
for establishing this data base are: (1) to change these MIDAS internal files 
to line files, then (2) to change the line files to flat files, and (3) to use 
a Taxir Create program to create the Lake .Benthos data bank. 
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To accomplish the first step, we used the following computer statements 
to convert COOKMERGE to a line file: 

(while in MTS mode) 

#RUN STAT: MIDAS 

?READ INTERNAL FILE=COOKMERGE VARIABLE=ALL 

(writing the variables of interest in the required order in the file 

LINVMIDAS, an MTS line file) 

7WRITE VARIABLE=l-5 , 9 , 155-156 , 10-147 , 150-154 , 200-205 , 300-303 , 400-406 , 500-510 

FILE=LINVMIDAS CASES=ALL F0RMAT=(2(F3.0,2X) ,2(F2.0,2X) ,F4.1,2X,F5.2,2X,F2.0,2X, 

F4.0,2X,166(F10.2,2X),4(F2.0,2X),F4.1) 

7FINISH 

Note that the order of the variables in the file LINVMIDAS follows 
the sequence of variables, YEAR, MONTH, REGION, ZONE, DEPTH, CON. FACT, AREA, 
STATION, 166 SPECIES VALUES, PRIMSED, SECSED, TERTSED, QUATSED, and VOLUME. 

With a slight change, the above statements were applied to change COOK7982 
to a line file. The complete statements are as follows: 

#RUN STAT: MIDAS 

7READ INTERNAL FILE=COOK7982 VARIABLE=ALL 

?WRITE VARIABLES -3 1,34-61 FILE=MCOOK7982 CASES=ALL 

FORMAT==(2(F3.0,2X),F2.0,2X,2(F2.0,2X),F4.1,2X,F5.2,2X,4(F2.0,2X),F4.1,2X,46(F10, 

2,2X),F4.0) 

7FINISH 
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The order of the variables in file MCOOK7982 is different from that 
in the LINVMIDAS and is shown as follows: YEAR, MONTH, AREA, REGION, ZONE, 
DEPTH, CON.FACT, PRIMSED, SECSED, TERTSED, QUATSED, VOLUME, 46 SPECIES VALUES, 
and STATION. 

Reformat Programs 

Each benthos species in the BLINVMIDAS is treated as a parameter. There 
are 166 species included in this file, but only 46 species occur frequently. 
A large amount of space in the file is, therefore, occupied by species occurring 
only rarely; this represents an inefficient utilization of space. We decided to 
change the form of data storage so as to make more efficient use of file space. 
Programs BLARRAN1 and BLARRAN2 were written for this purpose. These programs 
ignore those species with counts of 0.0; the remaining species are placed in a 
flat-file form with one species per line. The program BLARRAN1 is used for 
restructuring the 1970-1978 data while BLARRAN2 is used for rearranging the 
1978-1982 data. The results of these programs are stored in files REMCOOK7982 
and BLREMIDAS. The command statements for using these programs are listed 
below: 

#RUN *FTN SCARDS=BLARRAN1 SPUNCH=0BJ1 
#RUN *FTN SCARDS=BLARRAN2 SPUNCH=0BJ2 
#RUN 0BJ1 5=BLINVMIDAS 6=BLREMIDAS 
#RUN 0BJ2 5=MCOOK7982 6=REMCOOK7982 

The contents of these programs are listed in Tables 4.18 and 4.19. 
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TABLE 4.18. Program BLARRAN1. 



C PROGRAM BLARRAN1 IS USED TO ORGANIZE LAKE BENTHOS DATA SETS FOR 

C THE PERIOD OF 1970 TO 1978. THE OUTPUT FILE IS IN THE FORM OF 

C FLAT FILE WHICH LATER CAN BE ADDED TO LAKE. BENTHOS DATA BANK. 

C UNIT S IS THE INPUT FILE. 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE. (FLAT FILE). 

C 

c 

c 
c 

C******* INITIALIZE VARIABLES. 

c 

REAL YEAR, MONTH. REGIN, ZONE, DEPTH, CONFAC, AREA. ST AT. PRSD. 
1 SESD.TESD.OUSD, VOLUME, SPCONT( 166) 

REAL*8 SPNAME(166) 

INTEGER lYEAR.IMONTH.IREGIN.XZONE.IAREA.ISTAT.IPRSD, 
1XSESO.XTESD.IOUSD 

LOGICAL* 1 GR0UPN(166) 
C 

£♦*♦**** 

c **«+«*« INITIALIZE DATA. 

C 

DATA SPNAME/8H C.FLUV.8H C. ANTHR.8HCHIRNMUS.8H CLADO, 

18H C.R0LLI.8HCRYPT0 1.8HCRYPT0 2.8HCRYPT0 3.8H CRICOT, 

18HDEMICRYP.8HH.CHANGI.8H H.0LIV.8H HYDR0B.8H MICROP. 

18H M.TUB.8H P. ABORT, 8HP. NEREIS ,8HP .UNDINE ,8HP .CAMPTO, 

18H P.WINN, 8H P.FALLX.8H P.SCAL.8H POLY 2.8H P.LONG, 

18H PR0CLAD,8H P . SIMUL . 8HRHE0TANY , 8H R.DEMJ.8H S.TYLUS. 

18H TANYTAR.8HTHIEN GR.8H 0. CHIR,8H A. LEYD, 8HA . LOMOND. 

18H C.DIAPH.8H C.DIAS .8HC .SETOSU. 8H DER0.8H N.PARD. 

18HN.PSEUD0.8H N.VAR.8H N.SIMP.8H P . LIT , 8HP . SIMPLX , 

18H P. MICH, 8HP.F0RELI.8HP.L0NGIS.8HP.0SB0RN.8HS. APPEND. 

18H S.J0SIN.8H S.LACUS.8H U.UNCIN.8H V. INTER, 8HIM WO HC, 

18H IM W HC.8HL.ANGUST,8H L .CLAP, 8HL .CERVIX . 8H L.HOFF. 

18H L.PR0F.8H L.SPIR.8H L.UDEK.8H P.FREYI.8H PELO MM, 

18H PELO ML.8H P .SUPER, 8HP.BED0TI ,8H P.440LD.8H P.VEJ, 

18H A.AMER.8H A.LIMN0.8H A.PLUR.8H I .TEMP , 8HT .TUBIFX, 

18M R.C0CC.8H V.SIN.8H V .TRI , 8HAMNIC0LA , 8HBYTHINI A , 

18H S0MAT0.8H LYMNAEA.8H PHYSA.8H0. GASTR.8H S.NITID, 

18H S. STRIA, 8H S. TRANS, 8H S. CORN, 8HP. ADAMS I ,8H P.CASER, 

18H P.C0MP.8H P.C0NV.8H P.FALL.8H P.FERR.8H P. HENS, 

18H P. IDAHO. 8H P.LILLJ.8H P.MILL.8H P.NIT.8H P.PAUP. 

18H P.SUPIN.8H P.SUB,8H P.VAR.8H P.WALK.8H H.STAG, 

18H D.PARVA.8H N.0BSC8H G.C0MP.8H0. HIRUD.8H0 INSECT, 

18HP.H0YI 1,8HP.H0YI 2,8HP.H0YI 3,8HP.H0YI 4.8HP.H0YI G, 

18HP.H0YI S.8HP.H0YI M,8H TP0NT0.8H TMYSIS.8H TGAMM, 

18H THYALL.8H TCHIR,8H TNAID.8H TTUBIF.8H TENCHY, 

18H TSTYL0.8H T0LIG0.8H TGASTR0.8H TSPHAER.8H TPISIP, 

18H TPELECY.8H THYDRAC.8H THIRUD.8H THYDRA.8HTTURBELL. 

18H T0THER.8H TANIMAL,8H TAEQL0S.8H ASELLUS.8H 0. NAID, 

18H 0.SERP.8H N.C0MM,8H P. FRICI ,8HN.BRETSC,8HN.BEHNGI . 

18H0. TUBIF.8H P.VARIG,8H P.HAMM.8H A.PIG,8HM. PISID, 

18HU. PISID, 8H S. RHOMB. 8H P.AMNIC.8H S.SECUR,8H0. SPHAE. 

18HP.VENTRI.8H M. CHIR,8H KIEFF.8H C.HAL0.8HPARACLAD. 

18HHARNISCH.8H PHAEN0P.8H DICR0.8H GLYPT0.8HPARATANY . 

18HRHE0TANY , 8H STICTO/ 
C 

DATA GROUPN/32* 1HC , 2 1 • 1HN , 22* 1HT , 8* 1HG , 4* 1HS . 16* 1HP , 

15*1HH,1H0,8*1HA, 1H0, 2MHA. 1HC. 1HN, 1HT.3MH0, 1HG,1HS.1HP, 

12*1H0,1HH,6»1H0,6*1HN,4*1HT.2*1HP,1HS.1HP.2*1HS.1HP.11*1HC/ 
C 
£>*•***** 

£♦#*♦*♦» READ DATA LINSS CONTAINING 166 SPECIES COUNTS. 

£••♦*♦♦* 

C 

Continued on next page. 
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TABLE 4.18. (Continued). 



100 READ(5, 1O.EN0-99) YEAR, MONTH, REGXN, ZONE, DEPTH, CONFAC.AREA, 

1STAT,(SPC0NT( J), J-1. 166), PRSD,SESD.TESD,OUSD. VOLUME 
10 F0RMAT(2(F3.O,2X).2(F2.O.2X),F4.1,2X.F5.2.2X,F2.O.2X,F4.O. 
12X,166(F10.2.2X),4(F2.0.2X),F4.1) 
C 

XYEAR-YEAR 
XMONTH-MONTH 
2REGIN-RE6ZN 
XZONE-ZONE 
XAREA-AREA 
ISTAT-STAT 
IPRSD-PRSD 
ZSESD-SESD 
ITESD-TESD 
IOUSD-OUSD 
C 

c ***«*»* WRITE THE FLAT FILE WITH THE SPECIFICATIONS 
c «««**«* 0F ONE SPECIES AT EACH LINE. 

c 

DO 20 1-1.166 

XF(SPCONT(X).LE.O.) GO TO 20 

WRITE(6,30) XYEAR,IMONTH,XREGIN,IZONE,DEPTH,CONFAC,IAREA, 
1ISTAT.GR0UPN(I).SPNAME(I),SPC0NT(I).XPRSD,XSESD.ITESD, 

1I0USD, VOLUME 
30 F0RMAT(2(X3,3X),2(I2.3X).F4.1.3X,F5.2,3X,I2.3X,X4,3X.A1, 

13X,A8,3X,F10.2,3X,4(I2,3X).F4.1) 
20 CONTXNUE 
C 

c 



GO TO 100 



99 STOP 
END 
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TABLE 4, 19. Program BLARRAN2. 



C PROGRAM BLARRAN2 IS USED TO ORGANIZE LAKE BENTHOS DATA SETS FOR 

C THE PERIOD OF 1979 TO 1982. THE OUTPUT FILE IS IN THE FORM OF 

C FLAT FILE WHICH LATER CAN BE ADDED TO LAKE. BENTHOS DATA BANK. 

C UNIT 5 IS THE INPUT FILE. 

C UNIT 6 IS ASSIGNED TO OUTPUT FILE, (FLAT FILE). 

C 

C 

c 
c 

£******» 

£•«**«** INITIALIZE VARIABLES. 

£**++*** 
C 

REAL YEAR .MONTH, AREA, REGIN, ZONE, DEPTH. CONFAC.PRSD. SESD. 
1TESD , OUSD , VOLUME , SPCONT ( 46 ), STAT 

REAL'S SPNAME(46) 

INTEGER 2YEAR, IMONTH, IAREA , IREGIN. I20NE . IPRSD, ISESO. 
1ITESD.IOUSD.ISTAT 

LOGICAL* 1 GR0UPN(46) 



C 

£******* 

£♦♦*♦♦♦♦ 

£**»#*** 

c 



INITIALIZE DATA. 



OATA SPNAME/8HP.HOYI 1.8HP.H0YI 2.8HP.H0YI 3.8HP.H0YI 4, 
18HP.H0YI G.8HP.H0YI S.8HP.H0YI M.8H TP0NT0.8H TMYSIS, 
18H TGAMM.8H THYALL.8H ASELLUS.8HV. LEWISI ,8H V.SIN, 
18HAMNIC0LA,8HBYTHINIA,8H S0MAT0.8H LYMNAEA.8H PHYSA, 
18H TGASTR0,8H TPISI0.8HS .MARGIN, 8H S. NITI0.8HS. SIMILE , 
18H S.STRIA.8H S. TRANS. 8H TSPHAER.8H TPELECY.8H TCHIR, 
18H TSTYL0.8H TNAID.8H TTUBIF.8H TENCHY.8H 
18HGL0SS0PH.8H H.STAG.8H 0.PARVA.8H N.0BSC.8H0. 
18H THIRUD.8H THYDRAC.8H THYDRA.8HTTURBELL.8H 
18 HO INSECT, 8H T ANIMAL/ 



TOLIGO. 

HIRUO, 

TOTHER, 



C 

£******« 
£**** + *<» 

£•••♦••• 

c 

100 



OATA GR0UPN/8*1HA,1H0.2*1HA.1H0,8*1HG,1HP,6*1HS.1H0, 
11HC.1H0.1HN,1HT,2*1H0.6*1HH,6*1H0/ 



READ DATA LINES CONTAINING 46 SPECIES COUNTS. 



READ(5,10,EN0-99) YEAR, MONTH, AREA, REGIN, 20NE, DEPTH, 
1C0NF AC, PRSD.SESD.TESD, OUSD, VOLUME. (SPCONT( J), d«1 ,46). STAT 
10 F0RMAT(2(F3.O,2X).F2.O.2X,2(F2.O,2X),F4.1.2X, 
1F5.2.2X,4(F2.0.2X) t F4.1,2X,46(F10.2.2X).F4.0) 

IYEAR-YEAR 

IMONTH-MONTH 

IAREA-AREA 

IREGIN-REGIN 

I ZONE -ZONE 

IPRSD-PRSD 

ISESD-SESD 

ITESD-TESD 

IOUSD-OUSD 

ISTAT-STAT 

IFCIYEAR.E0.10) IYEAR-79 

IF(IYEAR.E0.11) IYEAR«80 

IF(IYEAR.E0.12) IYEAR-81 

IFCIYEAR.E0.13) IYEAR-82 

IFCCONFAC.EO. 1 . ) CONFAC-60.60 
IF(C0NFAC.E0.2. ) CONFAC-20.40 
IF(C0NFAC.E0.3.) CONFAC-30.30 

Continued on next page. 
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TABLE 4.19. (Continued). 



c 

c *,»«*«^ WRITE THE FLAT FILE WITH THE SPECIFICATIONS 

c »****** OF ONE SPECIES AT EACH LINE. 

£»»•«*•* 

C 

00 20 1*1.46 

XF(SPC0NT(I).LE.O.) GO TO 20 

VRITE(6,30) lYEAR.XMONTH.XREGXN.IZONE, DEPTH. CONF AC. 
11 AREA, XSTAT.GROUPN(I ) ,SPNAME( I ) .SPCONT( X ) . XPRSO. 
1XSESD.ITES0.I0USD. VOLUME 
30 F0RMAT(2(X3.3X).2(I2.3X).F4.1,3X,F5.2.3X,I2.3X.X4, 

13X,A1.3X.A8,3X,F10.2,3X,4(I2,3X),F4.1) 
20 CONTINUE 
C 

GO TO 100 
C 
99 STOP 
END 
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Taxir Create Program 

Program BLTAXIRCR is a Taxir Create program for establishing the 
Lake. Benthos data bank. This Create program uses the result of the reformat 
programs establishing a Taxir data base, LAKE. BENTHOS, which is saved on the 
COOK tape at position 5. The Taxir Create program for the Lake. Benthos data 
bank is shown in Table 4.20. 
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TABLE 4.20. Program BLTAXIRCR. 



RUN »TAXIR 

CREATE LAKE. BENTHOS, 

YEAR(FROM 70 TO 85), 

MONTH(FROM -0 TO 12), 

REGION(PROM -0 TO 9), 

20NE(FR0M -0 TO 9), 

DEPTH(FROM -0.0 TO 99.9), 

CON.FACT(FROM -0.00 TO 99.99), 

AREA (FROM -0 TO 9), 

STATION(FROM -0 TO 999), 

6R0UP(0R0ER,A,C,6,H t N,0,P,S,T), 

COOE(NAME), 

CELLS(FROM 0.01 TO 1000000.99). 

PRIM SED(FROM -0 TO 9), 

SEC SED(FROM -0 TO 9). 

TERT SED(FROM -0 TO 9), 

OUAT SEO(FROM -0 TO 9), 

VOLUME (FROM -0.0 TO 99.9)* 

ENTER DATA LQCATION-BLREMIDAS, FORMAT-FIXED, 

YEAR<1-3>, 

M0NTH<7-9>, 

REGI0N<13-14>, 

20NE<18-19>, 

DEPTH<23-26>, 

C0N.FACT<30-34>, 

AREA<38-39>. 

STATI0N<43-46>, 

GR0UP<50>. 

C0DE<54-€1>, 

CELLS<65-74>, 

PRIM SED<78-79>, 

SEC SED<83-84>, 

TERT SED<88-89>, 

OUAT SED<93-94>. 

V0LUME<98-101>* 

SAVE 

STOP 
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ENTRAINED BENTHOS 

The Entrained. Benthos data bank contains 11 descriptors and 7,911 items. 
The descriptors are: 

1 -SAMPLE 

2-YEAR 

3-MONTH 

4-WEEK 

5-PERIOD 

6-PUMP 

7-REPLICATION 

8-CUBIC .METER 

9-GROUP 
10-CODE 
11 -CELLS 

The monthly number of data items stored in the Entrained. Benthos data 
bank is shown in Table 4.21. 
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TABLE 4.21. The number of data items in Entrained. Benthos data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



75 



76 



77 



1 ( 


54) 


2 ( 


94) 


3 ( 


25) 


4 ( 


48) 


5 ( 


47) 


6 ( 


. 65) 


7 ( 


69) 


8 ( 


;i09) 


9 ( 


. 83) 


10 ( 


; 39) 


11 ( 


: 61) 


12 ( 


:i25) 


1 ( 


: 66) 


2 ( 


: 3d 


3 ( 


: 95) 


4 ( 


: 68) 


5 ( 


: 79) 


6 ( 


: 97) 


7 ( 


:i35) 


8 ( 


: 70) 


9 ( 


: 77) 


10 ( 


: 45) 


11 < 


: 6) 


12 1 


: 24) 


3 1 


: 26) 


4 1 


: 5i) 


5 1 


: 5) 


6 l 


[123) 


7 l 


[ 67) 


8 


[222) 


9 1 


[ 90) 


10 


[136) 


11 


( 23) 


12 


[150) 



78 



79 



80 



1 


( 75) 


2 


( 22) 


3 


( 21) 


4 


( 46) 


5 


( 98) 


6 


(195) 


7 


(159) 


8 


(189) 


9 


( 96) 


10 


( 86) 


11 


(112) 


12 


(119) 


1 


( 50) 


2 


( 32) 


3 


( 20) 


4 


(109) 


5 


(100) 


6 


(178) 


7 


(134) 


8 


(183) 


9 


( 80) 


10 


( 97) 


11 


(117) 


12 


( 99) 


1 


(131) 


2 


( 43) 


3 


( 29) 


4 


( 50) 


5 


( 75) 


6 


(235) 


7 


(142) 


8 


(207) 


9 


(102) 


10 


(107) 


11 


(108) 


12 


(109) 



81 



82 



1 


( 62) 


2 


( 42) 


3 


( 79) 


4 


( 59) 


5 


(131) 


6 


(281) 


7 


(185) 


8 


(200) 


9 


( 99) 


10 


(131) 


11 


(105) 


12 


(184) 


1 


( 29) 


2 


( 21) 


3 


( 9) 


4 


( 29) 


5 


( 5) 
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The steps used to create the Entrained. Benthos data bank are shown 
in the following flow diagram: 



Entrainment Benthos 



MIDAS Conversion 



Line File 



Reformat Programs 
Additional Parameters 



Flat Data File 



i 



Taxir Create Program 



ENTRAINED. BENTHOS 



Entrained. Benthos Data Bank 

The original entrained benthos data are stored in an internal MIDAS file as 
ENTRAINMENT-REV. This file was first: converted to an MTS line file and then 
changed to a flat file. The detailed procedures for creating a line file from 
an internal MIDAS file was discussed previously. The similar procedures for 
creating a line file for entrained benthos are shown below: 

#RUN STAT: MIDAS 

(reading all the variables) 

?READ INTERNAL FILE=ENTRAINMENT-REV VARIABLE=ALL 

(writing the required variables with the desired order) 

?WRITE VARIABLE=l-7, 9-16, 18-22, 24-25 FILE=EINVMIDAS CASES=ALL 

75 



F0RMAT=(F4.0,1X,6(F3.0,1X),F6.2,1X,34(F10.5,1X)) 
?FINISH 

The order of the parameters in the EINVMIDAS is as follows: YEAR, MONTH, 
WEEK, PERIOD, PUMP, REPLIC, CUBICM, and 34 parameters for species. 

Reformat Program 

Each species in the entrained benthos file EINVMIDAS is treated as a 
parameter in the same way as that in the lake benthos file. The program BEARRAN 
was written for the same purposes as those for the lake benthos data, to reduce 
the space reserved for those species that show no counts and to rearrange the 
data by placing one species per line in a flat file. The content of this 
program is listed in Table 4.22. The result from program BEARRAN was saved in a 
file named BEREMIDAS. 

Taxir Create Program 

A Taxir Create program, BETAXIRCR, was used to create the Entrained. Benthos 
data bank. This computer data bank is saved at position 6 of the COOK tape. 
The contents of BETAXIRCR are listed in Table 4.23. 
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TABLE 4.22. Program BEARRAN. 



C PROGRAM BEARRAN IS USED TO ORGANIZE ENTRAINMENT BENTHOS DATA SE7S 

C FOR THE PERIOD OP 1975 TO 1982. THE OUTPUT FILE IS IN THE FORM OF 

C FLAT FILE WHICH LATER CAN BE ADDED TO ENTRAINED. BENTHOS DATA BANK. 

C UNIT 5 IS THE INPUT FILE. 

C UNIT 6 IS THE OUTPUT FILE. (FLAT FILE). 

C 

C 

c 

c 
C0000000 

£•»««»«« INITIALIZE VARIABLES. 

Q0000000 

c 

REAL SAMP, YEAR, MONTH, WEEK, PER2D. PUMP, REP, CUB2CM,SPCONT(34) 
REAL'S SPNAME(34) 

INTEGER I SAMP , I YEAR , IMONTH. IWEEK, IPERID . 1 PUMP , I REP 
INTEGERS GR0UPNO4) 

C 
£*•*»«•« 

C* • INITIALIZE DATA. 

c 

DATA SPNAME/8H P.HOY21.8H P.H0YI2.8H P. HOY I 3, 8H P.H0YI4, 
18HP.H0YI 6,8HP.H0Y2 S.8HP.HOY2 M,8H T MYS2S.8H T GAMM, 
18H T HYALL,8HCRANG0NX,8H T ASELL.8H T CH2R.8H T NA2D, 
18H T TUB2F.8H T STYLO, 8H T ENCHY.8H T H2RU0.8H TGASTRO. 
18HT SPHAER.8H T PZSX0.8HT HYDRAC.8H T HYDRA, 8H T TURB, 
18HCRAYF2SH.8H OTHERS, 8H TR2CHOP.8H EPHEM.8H ODONATA. 
18H C0LE0PT.8H CHA0B0R,8H CUL2C2D,8HS2MULX20.8HOINSECTA/ 

DATA GR0UPN/7*2HAM , 2HMY , 3»2HAM, 2HAS , 2HCH, 4-2H0L , 2HH2 . 
12HGA,2HSP,2HP2,3*2HOT.2HCR.2HOT,8*2H02/ 
C 

£»«••••+ READ' DATA LINES CONTAINING 34 SPECIES COUNTS. 
€••••••• 

C 
100 REA0C5. 10.EN0-99) SAMP. YEAR, MONTH. WEEK. PER2D, PUMP, REP, 

1CUB2CM t (SPCONT(2).2«1.34) 
10 F0RMAT(F4.O.1X.6(F3.O,1X).F6.2,1X.34<F1O.5.1X)) 
2 SAMP* SAMP 
IYEAR-YEAR 
2M0NTH-M0NTH 
IWEEK-WEEK 
IPERID-PERID 
I PUMP- PUMP 
IREP-REP 

C 
£«•«**«« 

C 0.00000 CHANGE YEAR CODES. (EX: CHANGE 1 TO 73). 

Q0000000 

C 

2FUYEAR.E0.1) 2YEAR-75 

2FC2YEAR.E0.2) XYEAR-78 

2FC2YEAR.E0.3) 2YEAR-77 

2FC2YEAR.E0.4) IYEAR-78 

2FC2YEAR.E0.5) 2YEAR«79 

2FC2YEAR.E0.6) 2YEAR-80 

2F(2YEAR.E0.7) IYEAR-81 

2FC2YEAR.E0.8) 2YEAR-82 
C 

Q0000000 

C 0000000 WRITE THE FLAT FILE WITH THE SPECIFICATIONS 

^000000 f 0N£ SPECIES AT EACH LINE. 

Q0000000 

C 

DO 20 2*1.34 

2FCSPCONT(2).LE.O.O) GO TO 20 

WRJTE(6,30) 2SAMP.2YEAR,2MONTH,2WEEK,2PER2D.2PUMP. 
12REP.CUBZCM.GROUPN(2).SPNAME(2).SPCONT(2) 
30 F0RMAT(I3.3X.6(I2.3X),F6.2,3X,A2,3X.A8,3X,F10.5) 
20 CONTINUE 
GO TO 100 
C 
99 STOP 
END 
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TABLE 4.23. Program BETAXIRCR. 



RUN »TAXIR 

CREATE ENTRAINED. BENTHOS, 

SAMPLE (FROM 100 TO 999), 

YEAR (FROM 70 TO 85). 

MONTH (FROM 1 TO 12), 

WEEK (FROM 1 TO 5), 

PERIOD (FROM 1 TO 9), 

PUMP (FROM 1 TO 2), 

REPLIC(FROM 1 TO 2), 

CUBIC M(FROM 0.00 TO 999.99), 

GROUP(ORDER,AM,AS.CH,CR,GA f HI,OI,OL,OT.MY,PI,SP), 

COOE(NAME). 

CELLS (FROM 0.00000 TO 9999.99999)* 

ENTER DATA LOCATION-BEREMIDAS, FORMAT-FIXED, 

SAMPLE<1-3>, 

YEAR<7-8>, 

M0NTH<12-13>. 

WEEK<17-18>, 

PERI0D<22-23>, 

PUMP<27-28>, 

REPLIC<32-33>, 

CUBIC M<37-42>, 

GR0UP<46-47>, 

C0DE<51-58>, 

CELLS<62-71>* 

SAVE 

STOP 



78 



IMPINGED BENTHOS 

The Impinged. Benthos data bank contains 4,103 items and 11 descriptors, 
which are listed below: 

1-YEAR 

2 -MONTH 

3-PERIOD 

4-CASE 

5-NAME 

6-SEX 

7 -REPRODUCTION 

8-SIZE 

9 -NUMBER 
10-TOTAL NUMBER 
11 -TOTAL WEIGHT 

The monthly number of data items stored in the Impinged. Benthos data bank 
is shown in Table 4.24. 
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TABLE 4.24, The number of data items in Impinged .Benthos data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



75 



76 



77 



1 ( 


13) 


2 ( 


26) 


3 ( 


51) 


4 ( 


104) 


5 ( 


101) 


6 ( 


46) 


7 ( 


18) 


8 ( 


638) 


9 ( 


525) 


10 ( 


150) 


11 ( 


.120) 


12 ( 


39) 


1 ( 


. 57) 


2 ( 


30) 


3 ( 


: 36) 


4 < 


: 57) 


5 < 


: 22) 


6 ( 


: 48) 


7 ( 


:io2) 


8 ( 


;i02) 


9 < 


: si) 


10 ( 


: 4i) 


11 < 


; 38) 


12 ( 


: 33) 


1 I 


{ ID 


2 I 


: 9) 


3 l 


{ 39) 


4 l 


{ 94) 


5 


( 56) 


6 


C 69) 


7 


(110) 


8 


( 45) 


9 


( 29) 


10 


C 24) 


11 


( 18) 


12 


( 50) 
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79 



80 



1 


(27) 


2 


(19) 


3 


(26) 


4 


(53) 


5 


(10) 


6 


(17) 


7 


(28) 


8 


(47) 


9 


(17) 


10 


(19) 


11 


(19) 


12 


( 4) 


1 


( 4) 


2 


( 4) 


3 


(18) 


4 


( 9) 


5 


( 2) 


7 


(41) 


8 


(49) 


9 


(32) 


10 


(16) 


11 


(16) 


12 


( 2) 


2 


(16) 


3 


(38) 


4 


(59) 


5 


(66) 


6 


(12) 


7 


(15) 


8 


(63) 


9 


(31) 


10 


(21) 


11 


( 2) 


12 


(13) 
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1 


(34) 


2 


(12) 


3 


(40) 


4 


(34) 


6 


(10) 


7 


(56) 


8 


(49) 


9 


(14) 


10 


(11) 


11 


(15) 


12 


(14) 
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The steps for establishing this data bank are shown in the following 
flow diagram: 



Impinged Benthos 



MIDAS Conversion 



1 



Line File 



Reformat Program 

& Additional Parameters 



Flat Data File 



i 



Taxir Create Program 



IMPINGED. BENTHOS 



Impinged .Benthos Data Bank 

The data for impinged benthos are also in an internal MIDAS file. The same 
MTS procedures used for both lake and entrained benthos are used here. The 
computer statements for the operations are listed below: 

#RUN STAT:MIDAS 

(read all the variables) 

?READ INTERNAL FILE=IMPINGE VARIABLE-ALL 

(write the required parameters) 

7WRITE VARIABLES -44, 46-49 FILE-IINVMIDAS CASES^ALL 

F0RMAT=(3(F3.0,1X),45(F7.1,1X)) 

7FINISH 
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The order of the original variables in IINVMIDAS is as follows: YEAR, 
MONTH, REPRODUCTION, SPECIES (the parameters of 43 species), TOTAL NUMBER, 
TOTAL WEIGHT. 

Reformat Program 

The reformat program BIARRAN was used to reduce the space occupied by 
those impinged benthos species that show no counts and to rearrange the data 
so that each species is in the form of one species per line in a flat file. 
The contents of BIARRAN are listed in Table 4.25. 

Taxir Create Program 

The Taxir Create program BITAXIRCR was used to create the 
Impinged. Benthos data bank. The complete Impinged. Benthos data bank 
is stored on tape COOK at position 7. The contents of the program 
are listed in Table 4.26. 
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TABLE 4.25. Program BIARRAN. 



C PROGRAM BIARRAN IS USED TO ORGANIZE IMPINGEMENT BENTHOS DATA SETS 

C FOR THE PERIOD OF 1973 TO 1981. THE OUTPUT FILE IS IN THE FORM OF 

C FLAT FILE WHICH LATER CAN BE ADDED TO IMPINGED. BENTHOS DATA BANK. 

C UNIT 5 IS ASSIGNED TO INPUT FILE. 

C UNIT 6 IS THE OUTPUT FILE, (FLAT FILE). 

C 

c 
c 
c 

£«•**•+* 

c «***««# INITIALIZE VARIABLES. 

c 

REAL YEAR(815),M0NTH<815).PERX0D<816).SPC0NT<815.43). 
1T0TALN(815),T0TALW(81S) 
REAL'S NAME (43) 

INTEGER XYEAR(815).XM0NTH(815),XPERXD(81S) 
INTEGER-2 SEX(43) .REPR00(43) ,S2ZE(43) 
C 

c «««««»« INITIALIZE DATA. 

c 

DATA NAME/4 1-8H0RC PROP, 8HMUTX LATE, 8H0THER SP/ 

DATA SEX/2-2H F.2HM1 ,2HM2.2*2H P,2HM1 ,2HM2.2*2H F, 
12HM1 V 2HM2.2*2H F.2HM1 ,2HM2.2*2H F.2HM1 ,2HM2,2»2H F, 
12HM1,2HM2,2*2H F.2HM1 f 2HM2,2»2H F,2HM1,2HM2.2*2H F, 
12HM1,2HM2,2»2H F , 2HM 1 , 2HM2 , 2H M.2*2H / 
C 

DATA REPR0D/2H R,2HNR,2*2H ,2H R,2HNR,2*2H ,2H R, 
12HMR.2-2H ,2H R,2HNR,2*2H .2H R,2HNR.2*2H ,2H R, 
12HMR,2*2H ,2H R.2HNR,2*2H ,2H R,2NNR,2*2H ,2H R. 
12HNR.2-2H ,2H R,2HNR,5*2H / 

DATA SI2E/4-2H 1,4«2H 2,4*2H 3.4-2H 4,4*2H S.4*2M €, 
14*2H 7,4*2N 8,4«2H 9,4*2H10,3»2H / 
C 

£•«••••• READ DATA LJNES CONTAINING 43 SPECIES COUNTS. 

c 

DO 10 1-1,815 

READ(5.20) YEAR(X).M0NTH(X),PERX0D<X).(SPC0NT(I,J),J«1.43), 
1T0TALN<X),T0TALW<X) 
20 F0«MAT(3(F3.O.1X),45<F7.1,1X)) 
XYEAR(X)«YEAR(I) 
XMONTH(X)«MONTH(X) 
IPERIDU)-PERIOD(X) 
C 

c «****** CHANGE YEAR CODES. (EX: CHANGE 1 TO 75^. 

C 

XF(XYEAR(X).E0.1> XYEAR(X)-75 

XF(IYEAR(I).E0.2) XYEAR(X)«76 

XF(XYEAR(X).E0.3) XYEAR(X)«77 

XF(IYEAR(X).E0.4) XYEAR(X)«78 

XF(XYEAR(X).E0.5) XYEAR(I)-79 

XF(XYEAR(X).E0.6) XYEAR(I)-80 

XF(XYEAR(X).E0.7) XYEAR(X)«81 
C 

£*•*•»•« WRJ7E 7HE FLA7 FILE WI7H 7HE SPECIFICATIONS 
£«•*»»•* 0f QNE SPecJES A7 EACH LJN£ 

C 

DO 30 K-1,43 

XF(5PCONT(I # K).LE.O.) 60 TO 30 

VRITE(6.40) XYEAR(X).XMONTH(I).XPERID<X).I,NAME(K), 
1SEX(K) t REPR0D(K).SX2E(K) f SPC0NT(X.K),T0TALN(X).T0TALW(X) 
40 F0RMAT(3(X2.3X).X3,3X.A8,3(3X,A2).3(3X.F7.1)) 
30 CONTINUE 
10 CONTINUE 
C 

STOP 
END 
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TABLE 4.26. Program BITAXIRCR. 



RUN »TAXXR 

CREATE IMPINGED. BENTHOS, 

YEAR (FROM 70 TO 85), 

MONTH(FROM 1 TO 12), 

PERIOD(FROM 1 TO 9), 

CASE (FROM 1 TO 999), 

NAME (NAME), 

SEX(NAME). 

REPROD(NAME), 

SIZE(FROM 1 TO 10), 

NUMBER (FROM 0.0 TO 99999.9), 

TOTALN(FROM 0.0 TO 99999.9), 

TOTALW(FROM 0.0 TO 99999.9)* 

ENTER DATA LOCATION-BIREMIDAS, FORMAT-FIXED, 

YEAR<1-2>, 

M0NTH<6-7>, 

PERIQD<11-12>, 

CASE<16-18>, 

NAME<22-29>, 

SEX<33-34>, 

REPR0D<38-39>, 

SIZE<43-44>, 

NUMBER<48-54>, 

T0TALN<58-64>, 

T0TALW<68-74>* 

SAVE 

STOP 



84 



SUMMARY STATISTICS FOR ADULT LAKE AND IMPINGED FISH 

This Adult .Fish. Summary. Statistics data bank is one of the largest in the 
Cook project. It consists of 102,238 items and 10 descriptors. 
The descriptors are listed below: 

1-SPECIES 
2-MONTH 
3--YEAR 
4 -GEAR 
5-STATI0N 
6-SERIES 
7 -TEMPERATURE 
8--INTERVAL 
9 -TOTAL NUMBER 
10-TOTAL WEIGHT 

The monthly number of data items stored in the Adult .Fish. Summary. Statistics 
data bank is listed in Table 4.27. 
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TABLE 4.27. The number of data items in the Adult .Fish. Summary. Statistics 
data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



73 



74 



75 



1 ( 


25) 


2 ( 


127) 


3 ( 


282) 


4 ( 


: 847) 


5 ( 


922) 


6 ( 


:i,257) 


7 ( 


891) 


8 ( 


;i,126) 


9 ( 


792) 


10 ( 


: 870) 


11 ( 


: 145) 


12 ( 


; 68) 


1 ( 


: 114) 


2 < 


: 2i) 


3 ( 


: 445) 


4 < 


: 805) 


5 ( 


[1,160) 


6 ( 


: 867) 


7 1 


(1,564) 


8 ( 


:i,097) 


9 < 


: 725) 


10 ( 


: 584) 


11 1 


( 326) 


12 1 


( 165) 


1 1 


C 285) 


2 I 


( 215) 


3 1 


: 791) 


4 


(2,843) 


5 


(2,698) 


6 i 


(3,286) 


7 


(1,872) 


8 


(1,875) 


9 


(1,580) 


10 


(1,682) 


11 


(2,279) 


12 


(2,102) 



76 



77 



78 



1 ( 


992) 


2 ( 


728) 


3 ( 


569) 


4 ( 


1,125) 


5 ( 


1,314) 


6 ( 


997) 


7 ( 


1,652) 


8 ( 


1,006) 


9 ( 


1,016) 


10 ( 


: 761) 


11 ( 


316) 


12 ( 


[ 233) 


1 ( 


51) 


2 ( 


: 67) 


3 < 


: 257) 


4 ( 


: 507) 


5 ( 


. 936) 


6 ( 


; 951) 


7 < 


;i,115) 


8 ( 


; 89i) 


9 ( 


;i,088) 


10 ( 


: 936) 


11 1 


( 748) 


12 1 


( 179) 


1 < 


; 150) 


2 l 


( 56) 


3 1 


: 141) 


4 1 


( 412) 


5 


( 718) 


6 


(1,128) 


7 


(1,359) 


8 


(1,368) 


9 


(1,140) 


10 


(1,373) 


11 


( 724) 


12 


( 222) 



79 



80 



81 



82 



1 ( 


261) 


2 ( 


87) 


3 ( 


267) 


4 ( 


1,227) 


5 ( 


788) 


6 ( 


1,042) 


7 ( 


1,131) 


8 ( 


1,177) 


9 ( 


1,445) 


10 ( 


1,000) 


11 ( 


752) 


12 ( 


112) 


1 ( 


62) 


2 ( 


149) 


3 ( 


185) 


4 ( 


669) 


5 ( 


1,562) 


6 ( 


1,681) 


7 ( 


1,006) 


8 ( 


.1,141) 


9 ( 


[1,496) 


10 ( 


;i,288) 


11 ( 


; 730) 


12 < 


: 491) 


1 ( 


; 307) 


2 < 


: 143) 


3 < 


: 123) 


4 ( 


: 959) 


5 < 


;i,562) 


6 ( 


(1,722) 


7 1 


(1,617) 


8 1 


( 840) 


9 1 


( 966) 


10 1 


(1,176) 


11 


(1,233) 


12 


( 550) 


1 


( 250) 


2 


( 90) 


3 


( 128) 


4 


(1,147) 


5 


( 908) 


6 


(1,131) 


7 


( 875) 


8 


( 709) 


9 


( 817) 


10 


( 584) 


11 


( 602) 


12 


( 91) 
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The procedures for establishing this data bank are shown as follows: 



Adult Fish Summary 
Statistics Files 



1 



Taxir Create Program 



ADULT .FISH. SUMMARY. 
STATISTICS Data Bank 



Adult. Fish. Summary. Statistics Data Bank 

The original data for adult lake and impinged fish summary statistics are 
stored in flat-file form; therefore, no procedure is necessary to rearrange this 
data format. A Taxir Create program was used to create the Adult. Fish. 
Summary. Statistics data bank directly from the original data files. These com- 
puter data are stored on tape COOK at: position 8. The Taxir Create program 
AFSSTAXIRCR is shown in Table 4.28. 
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TABLE 4.28. Program AFSSTAXIRCR. 



RUN *TAXIR 

CREATE ADULT . FISH . SUMMARY . STATISTICS . 

SPECIES(FROM TO 99), 

MONTH(FROM 1 TO 12). 

YEARCFROM 70 TO 85). 

GEAR (FROM TO 99). 

STATION(FROM TO 99). 

SERIES(FROM TO 99), 

TEMPERATURE (FROM 0.0 TO 99.9), 

INTERVALS FROM TO 999), 

TOTALNUMBER(FROM TO 999999), 

TOTALWEIGHT(FROM 0.0 TO 99999999.9)* 

ENTER DATA LOCATION-MASTERFILE. FORMAT-FIXED. 

SPECIES<1-2>, 

M0NTH<3-4>, 

YEAR<5-6>, 

GEAR<7-8>, 

STATI0N<9-10>. 

SERIES<11-12>. 

TEMPERATURE<13- 16> , 

INTERVAL<17-19>. 

TOTALNUMBER<20-25> , 

T0TALWEIGHT<26-35>* 

SAVE 

STOP 
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FIELD-CAUGHT AND IMPINGED FISH 

The data for field-caught and impinged fish constitute the largest data 
set in the Cook project. Because the data are too extensive to be held 
in a single file, the data were divided into two files. The first one contains 
the raw data on adult lake fish stored in computer data base Lake. Adult. Fish; 
the second one includes the raw data on impinged adult fish stored in the 
computer data base Impinged. Adult. Fish. Both data banks have 22 descriptors: 

1-MONTH 12-SPECIES 

2-DAY 13-FISH NO. 

3-YEAR 14-LENGTH 

4-TIME 15-WEIGHT 

5-GEAR 16-SEX 

6-SERIES 17 -GONAD COND. 

7-STATIC 18-GILLNET HR. 

8-WATER TEMP. 19-GILLNET MIN. 

9-FISHUSE 20-FOOD PRESENT 

1 0-B IOL . COND . 21-SUBSAMPLE 

11 -PHY. COND . 22-TWNONSUB 

The Lake. Adult. Fish data bank has 181,156 items, and the Impinged. Adult. 
Fish data bank includes 110,843 items. The numbers of data items stored in the 
data banks are shown in Tables 4.29 and 4.30. 
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TABLE 4.29. The number of data items in Lake. Adult .Fish data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



73 



74 



75 



2 ( 


80) 


3 < 


; 830) 


4 < 


[2,611) 


5 ( 


[2,445 ) 


6 ( 


[3,746) 


7 ( 


[2,219) 


8 ( 


[3, 130) 


9 ( 


[1,568) 


10 ( 


:2,263) 


11 < 


[ 211) 


12 ( 


: 7) 


1 ( 


: 82) 


3 ( 


: 4i9) 


4 ( 


:i,866) 


5 ( 


[3,516) 


6 ( 


;2,448) 


7 ( 


;3,177) 


8 < 


:2,256) 


9 ( 


[1,526) 


10 < 


[1,284) 


11 ( 


: 567) 


12 l 


( 9i) 


1 ( 


; 94) 


3 < 


: 376) 


4 ( 


; 703) 


5 < 


[2,319) 


6 


[3,156) 


7 1 


[2,055) 


8 


[1,753) 


9 


[2,495) 


10 


[1,541) 


11 


[1,208) 


12 


[ 917) 



76 



77 



78 



79 



2 ( 


143) 


3 < 


205) 


4 ( 


2,146) 


5 ( 


2,700) 


6 ( 


2,008) 


7 ( 


3,302) 


8 ( 


2,117) 


9 ( 


,2,153) 


10 ( 


.1,448) 


11 < 


[ 326) 


3 ( 


[ 206) 


4 ( 


413) 


5 < 


[2,057) 


6 < 


[1,947) 


7 ( 


[2,554) 


8 ( 


[2,205) 


9 ( 


[2,646) 


10 ( 


[2,063) 


11 ( 


[1,494) 


12 ( 


[ 40) 


4 ( 


[ 434) 


5 ( 


[1,313) 


6 I 


[2,854) 


7 ( 


[3,417) 


8 < 


[2,976) 


9 ( 


[2,175) 


10 l 


[3,227) 


11 1 


[1,313) 


4 I 


[2,399) 


5 < 


[1,934) 


6 


[3,004) 


7 


[2,967) 


8 


[2,647) 


9 


[3,509) 


10 


(2,677) 


11 


(1,719) 



80 



81 



82 



4 ( 


953) 


5 ( 


[4,508) 


6 ( 


[3,819) 


7 ( 


[2,957) 


8 ( 


[2,411) 


9 ( 


[3,738) 


10 ( 


[2,887) 


11 ( 


[1,725) 


4 < 


[2,324) 


5 < 


[2,973) 


6 ( 


[4,264) 


7 ( 


[4,443) 


8 { 


[1,275) 


9 1 


[1,769) 


10 l 


[2,418) 


11 1 


[2,099) 


4 l 


[1,663) 


5 l 


[1,711) 


6 I 


[2,128) 


7 l 


(1,433) 


8 


(1,621) 


9 


(2,258) 


10 { 


( 896) 


11 


(1,186) 
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TABLE 4.30. The number of data items in the Impinged. Adult. Fish data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



73 



74 



75 



76 



1 ( 


33) 


2 ( 


' 157) 


3 ( 


11) 


4 ( 


: 99) 


10 ( 


: 2) 


11 ( 


: 6) 


12 ( 


: 140) 


1 < 


: 98) 


2 ( 


: 30) 


3 ( 


: 745) 


4 ( 


; 255) 


5 ( 


: 173) 


6 ( 


: 38) 


7 ( 


;i,i93) 


8 ( 


; 767) 


9 ( 


; 276) 


10 ( 


: 52) 


11 ( 


: 122) 


12 ( 


; 205) 


1 ( 


: 467) 


2 ( 


: 424) 


3 ( 


[1,063) 


4 ( 


[8,084) 


5 ( 


[4,853) 


6 l 


[6,153) 


7 | 


[2,097 ) 


8 1 


[1,735) 


9 | 


[1,344) 


10 


[3,879) 


11 1 


[4,189) 


12 


[3,697) 


1 l 


[2,626) 


2 


[1,249) 


3 l 


[1,611) 


4 ( 


[ 574) 


5 l 


[ 759) 


6 ( 


[ 616) 


7 


[1,099) 


8 < 


[ 548) 


9 


[ 575) 


10 l 


[ 593) 


11 


[ 378) 


12 1 


[ 522) 



77 



78 



79 



1 ( 


68) 


2 ( 


; 118) 


3 ( 


456) 


4 ( 


; 588) 


5 ( 


; 337) 


6 ( 


; 325) 


7 ( 


[ 521) 


8 ( 


: so) 


9 ( 


: 148) 


10 < 


[ 622) 


11 < 


: 326) 


12 ( 


: 316) 


1 < 


: 305) 


2 ( 


: 73) 


3 ( 


; 376) 


4 I 


[ 333) 


5 ( 


; 470) 


6 ( 


[ 408) 


7 ( 


[1,235) 


8 < 


[1,286) 


9 < 


[ 468) 


10 ( 


[ 628) 


11 ( 


[ 388) 


12 1 


[ 484) 


1 ( 


[ 719) 


2 | 


[ 130) 


3 < 


[ 514) 


4 ( 


[ 661) 


5 ( 


[ 45) 


6 I 


C 5) 


7 I 


[1,053) 


8 


[1,027) 


9 


[1,359) 


10 


[ 814) 


11 1 


[ 124) 


12 


{ 276) 



80 



81 



82 



1 ( 


132) 


2 ( 


; 383) 


3 ( 


572) 


4 ( 


[2,667) 


5 ( 


[1,667) 


6 ( 


[2,159) 


7 ( 


[ 488) 


8 ( 


[1,384) 


9 < 


[2,260) 


10 < 


[1,530) 


11 < 


[ 51) 


12 1 


[1,294) 


1 ( 


[1,247) 


2 1 


[ 284) 


3 ( 


[ 256) 


4 1 


[ 708) 


5 1 


[3,466) 


6 1 


[2,231) 


7 l 


[1,326) 


8 1 


[ 983) 


9 ( 


[ 519) 


10 1 


[ 997) 


11 l 


[1,754) 


12 


[2,606) 


1 1 


[ 565) 


2 


[ 206) 


3 1 


[ 262) 


4 


[2,140) 


5 


[1,575) 


6 


[1,872) 


7 


[1,032) 


8 


C 296) 


9 


[ 134) 


10 


C 384) 


11 1 


[ 562) 


12 


C 228) 
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The procedures for creating these two data banks are shown in the flow 
diagram below: 



The Original Adult Fish Data Files 



Flat Data Files 
Adult Lake Fish Data 



Taxir Create 
Program 



i 



LAKE .ADULT .FISH 



Reformat Program 




Flat Data Files 
Adult Impingement Fish Data 



Taxir Create 
Program 



IMPINGED.ADULT.FISH 



Reformat Program 

The program CHNGFRMT was used to reorganize the data for the adult lake and 
impinged fish which are stored in a file named TRANSREC. It separates lake fish 
data from the impingement data and enters the results of this program in flat- 
file forms stored in REFTRANFIE and REFTRANIMP, where the former contains the 
lake data and the latter houses the impingement data. These procedures are 
shown below: 

#RUN *FTN SCARDS-CHNGFRMT SPUNCH-C.OBJ 
#RUN C.OBJ 5=TRANSREC 6=REFTRANFIE 7=REFTRANIMP 
(Table 4.31 is a copy of program CHNGFRMT) 
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TABLE 4.31. Program CHNGFRMT. 



C PROGRAM CHNGFRMT IS USED TO SEPARATE FIELD RECORDS FROM THE IMPINGEMENT 

C RECORDS IN THE TRANSREC FILES. THE OUTPUT FILES PROVIDED BY THIS PROGRAM 

C ARE IN THE FORM OF FLAT FILES. 

C UNIT 5 IS THE INPUT FILE, (TRANSREC FILES). 

C UNIT € IS THE OUTPUT FILE FOR IMPINGEMENT RECORDS. 

C UNIT 7 IS THE OUTPUT FILE FOR FIELD RECORDS. 

C 

C 

C 

C 

£**»•*«* INITIALIZE VARIABLES. 

c 

INTEGER AB 
REAL D.E.H 

LOGICAL* 1 A(13),AC(7),B(20).C(18) 
C 

c «««**** READ 7Hg DATA unes FROM TRANSREC FILES. 

c 

100 RE AD (5. LEND -99) A.AB.AC.D.B, E,C.H 

1 F0RMAT(13A1 f I1,7A1 t F4.1,2OA1 f F5.O.18A1 f F7.O) 
C 

C* + * * * a * « 

c ««*«**« CHECK THE TYPE OF THE RECORD. (IMPINGEMENT OR FIELD). 

c 

IF(H.EO.O.O) GO TO 10 
IFUB.E0.1) GO TO 20 
C 

c *»«»*«, k WRITE THE IMPINGEMENT AND FIELD RECORDS. 

c 

WRITE(6,2) A.AB,AC.D,B,E,C,H 

2 FORMAT ( 1 3A 1 , 1 1 . 7A 1 , F4 . 1 , 20A 1 , F8 . 2 . 18A 1 . F9 . 1 ). 
GO TO 100 

C 
20 WRITE(7,2) A, AB, AC.D.B, E, C.H 
GO TO 100 
C 
10 IF(AB.EO.I) GO TO 30 

WRITE(6,3) A.AB,AC.D,B,E.C 

3 F0RMAT(13A1,I1,7A1 t F4.1,20A1,F8.2,18A1) 
GO TO 100 

C 
30 WRITE(7,3) A. AB , AC.D.B, E,C 
GO TO 100 
C 
99 STOP 
END 
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Taxir Create Program 

The Taxir Create program AFTAXIRCR (Table 4.32) was used to create 
adult lake and impinged fish data banks from the flat files REFTRANFIE 
and REFTRANIMP. The results of the Taxir Create program are saved in the 
Lake. Adult. Fish and Impinged .Adult .Fish data banks. The final version of 
Lake. Adult .Fish is saved on tape COOK at position 9, and that for 
Impinged. Adult. Fish is stored on the same tape at position 10. 
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TABLE 4.32. Program AFTAXIRCR. 



RUN *TAXIR 

CREATE IMPINGED. ADULT. FISH, 

MONTH(FROM 1 TO 12). 

DAY(FROM 1 TO 31). 

YEAR(FROM 70 TO 85). 

TIME(FROM TO 2400). 

GEAR (FROM TO 9), 

SERIES(FROM TO 99). 

STATION(FROM TO 9), 

WATERTEMP.(FROM 0.0 TO 99.9), 

FISHUSE(FROM TO 9 ) . 

BIOL. COND. (FROM TO 9). 

PHY. COND. (FROM O TO 9), 

SPECIES(FROM TO 99). 

FISHNO.(FROM TO 999999), 

LENGTH(FROM TO 9999). 

WEIGHT (FROM 0.00 TO 99999.99), 

SEX (FROM TO 9), 

GONADCONO.(FROM TO 9), 

GILLNETHR.(FROM TO 99), 

GILLNETMIN.(FROM TO 99). 

FOODPRESENT(FROM TO 9), 

SUBSAMPLE(FROM O TO 99). 

TWNONSUB(FROM 0.0 TO 9999999.9)* 

ENTER DATA LOCATION-REFTRANIMP. FORMAT-FIXED. 

M0NTH<1-2>, 

DAY<3-4>. 

YEAR<5-6>, 

TIME<9-12>. 

GEAR<14>, 

SERIES<15-16>. 

STATI0N<19>. 

WATERTEMP.<22-25>. 

FISHUSE<29>. 

BIOL. COND. <30>. 

PHY. COND. <31>. 

SPECIES<32-33>. 

FISHN0.<34-39>, 

LENGTH<41-44>, 

VEIGHT<46-53>. 

SEX<56>, 

G0NADC0ND.<59>, 

GILLNETHR.<60-61>, 

GILLNETMIN.<62-63>. 

F00DPRESENT<64>, 

SUBSAMPLE<68-69>, 

TWN0NSUB<72-80>* 

SAVE 

STOP 
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FIELD: LARVAL FISH 

The Lake. Larvae data bank contains 20 descriptors and 14,110 items. 
The descriptors are as follows: 

1-CODE NO. 11-GRATE 

2-SAMPLE NO. 12-STATION 

3 -PERIOD 13 -TEMPERATURE 

4-MONTH 14-REV0LATI0N 

5-DAY 15-SPECIES NAME 

6-YEAR 16-SPECIES DENSITY 

7-DIAL 17-INTERVAL 

8-TIME 18-NUMBER 

9-GEAR 19-SUM LENGTH 

10-TOW DEPTH 20-SUM SQUARE LENGTH 

The monthly number of data items stored in the Lake. Larvae data bank is 
listed in Table 4.33. 
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TABLE 4.33. The number of data items in Lake. Larvae data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



73 



74 



75 



76 



3 ( 


: 8) 


4 < 


; 80) 


5 ( 


: 55) 


6 < 


[404 ) 


7 ( 


:372) 


8 < 


:i5i) 


9 < 


: «) 


10 ( 


: 52) 


11 < 


: io) 


1 ( 


: 4) 


3 ( 


: 12) 


4 ( 


: 58) 


5 < 


:i7i) 


6 < 


:395) 


7 l 


[463) 


8 I 


[336) 


9 1 


:i55) 


10 < 


: 58) 


11 1 


: 30) 


4 l 


: 74) 


5 l 


'120) 


6 1 


[300 ) 


7 l 


'521) 


8 < 


:4i9) 


9 l 


(102) 


10 l 


: so) 


11 1 


: 68) 


2 I 


( 8) 


4 1 


: 73) 


5 1 


: 79) 


6 


(299) 


7 I 


[930) 


8 


(439) 


9 


{ 73) 


10 


( 47) 


11 l 


{ 12) 



77 



78 



79 



80 



4 ( 


56) 


5 ( 


: 56) 


6 < 


[213) 


7 < 


[398) 


8 < 


[311) 


9 ( 


: 91) 


10 ( 


: 17) 


11 < 


: 17) 


4 ( 


: 78) 


5 ( 


: 86) 


6 ( 


;i50) 


7 ( 


:i2i) 


8 ( 


;237) 


9 ( 


: 74) 


10 ( 


: 19) 


11 ( 


: 13) 


4 ( 


: 72) 


5 ( 


: 88) 


6 ( 


:i25) 


7 ( 


[507) 


8 1 


(358) 


9 < 


[122) 


10 1 


( 34) 


11 1 


: 12) 


4 { 


: 73) 


5 1 


:i69) 


6 l 


(124) 


7 1 


(743) 


8 l 


(207) 


9 1 


( 96) 


10 


( 14) 


11 l 


( 13) 



81 



82 



4 


( 77) 


5 


(139) 


6 


(239) 


7 


(184) 


8 


(480) 


9 


(111) 


10 


( 12) 


11 


( 12) 


4 


( 76) 


5 


(106) 


6 


(483) 


7 


(492) 


8 


(466) 


9 


( 12) 


10 


( 12) 


11 


( 12) 
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The flow chart below shows the different stages involved in the creation 
of the Lake. Larvae data bank. 



Input Data Files 
TOTAL, STAT, HISTO 



Reformat Program 1 



Output Data Files 



Sort in terms of species 
name and code number 



Line Files 



Reformat Program 2 



Flat Data File 



Sort in terms of species name, 
code number, and interval 



JL 



Flat Data File 



Taxir Create Program 



-JL 



LAKE. LARVAE 
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The* purpose of this operation is to combine the data in various formats 
in three files into one single flat file, which is then entered into the Taxir 
data base management program to create a data base management file. The origi- 
nal data are contained in three files called HISTOYR, STATYR, and TOTALYR, 
where "YR" indicates the year when the data were collected. Both the open lake 
and the nearshore beach data are included in these files. The HISTOYR file 
contains the following parameters: CODE NO., SAMPLE NO., PERIOD, DATE, DIAL, 
TIME, GEAR, TOW DEPTH, GRATE, STATION, TEMPERATURE, REVOLATION, SPECIES NAME, 
and 51 different density intervals. The first 12 parameters of the STATYR 
file are the same as those in HISTOYR file but the parameters which follow 
are SPECIES CODES and statistical values of TOTAL NUMBER, SUM, and SUM OF SQUARE 
for 20 species. The first 12 parameters of the TOTALYR file are also the same 
as those in the HISTOYR file, but are followed by the single parameter, total 
egg counts. 

Reformat Programs 

All three files are identical in the first 12 parameters but are different 
in the parameters which follow. Reformat programs are needed to rearrange these 
files, so that all parameters can be merged into one single flat file. Two 
reformat programs were used. The first reformat program is called LLARVARR, as 
shown in Table 4.34. The major functions of this program are 1) to change 
STATYR file from 20 species per line to one species per line, 2) to delete those 
lines with no density values in the HISTOYR file, and 3) to add the character 
"EG" to each line in TOTALYR file to indicate that these data are for fish eggs. 
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TABLE 4.34. Program LLARVARR. 



C PROGRAM LLARVARR HAS THREE FUNCTIONS. IT CHANGES STAT FILE INTO A FLAT 

C FILE. DELETES THE DATA LINES WITH NO HISTOGRAM VALUES FROM HJSTO FJLE. 

C AND FINALLY IT ADDS CHARACTER m EG m TO EACH LINE OF TOTAL FILE. 

C UNITS 2. 4. AND 6 ARE THE INPUT FILES. 

C UNITS 3,5, AND 7 ARE THE OUTPUT FILES. 

C 

C 

C 

c 

c «*...». INITIALIZE VARIABLES. 

c 

INTEGER SPN(20).NUMI (20), SAMPNO. PRO. DATE .DXEL.TXME. GEAR. 
1T0WDEP. GRATE, STATN, SPECN. IREV, EGGCON 
REAL SUMI(2O),SUMSI(2O).TEMP.REV.R0UNDC(51),SPC0N(2O) 
REAL'S COOENO 
C 

£•»«*«#» DELETE THE DATA LINES FROM STAT FILE WITH NO STATISTICS. 

c .«««... MAKE sf A j fj L i FLAT. 

c *.....« 

c 

100 READ(2.10,END«99) COOENO, <SPN(X ),NUMX(X ), SUM! (I ) . 
1SUMSI(I),X«1,20) 

10 F0RMAT(A5.42X,20(1X,A2.1X.X4,1X,F9.1,1X.F11.1)) 
C 

XF(NUMXO).EO.O) GO TO 100 
C 

00 20 1-1,20 

XF(NUMX(I).EO.O.) GO TO 20 

VRITEC3.30) COOENO. SPN( X ).NUMX(X). SUM! (X). SUMS! (X) 

30 F0RMAT(A5.1X,A2.1X.X4,1X,F9.1,1X.F11.2) 

20 CONTINUE 
C 

GO TO 100 
C 

c ....... DELETE DATA LINES FROM HJSTO FILE WITH NO HISTOGRAM VALUES. 

c . ...... 

C 
99 REA0(4.11,ENO«999) COOENO. SAMPNO. PRO, DATE. DX EL. TIME. 

1GEAR.T0W0EP, GRATE, STATN, TEMP. REV, SPECN, (ROUNOC( X ) . !■ 1,51) 

11 F0RMAT(A5.1X,A4,1X.X2,1X.X6,1X,X1,1X,X4,1X,A1.1X, 
1A2,A1.A2,1X.F4.1.1X.F6.0.1X.A2,51F€.0) 

C 

00 21 1*1.51 

XF(R0UN0C(X).E0.O.) GO TO 21 
GO TO 101 

21 CONTINUE 
C 

GO TO 99 
C 

101 WRXTE(5.11) COOENO. SAMPNO. PRO. DATE. OXEL. TIME. GEAR. 
1T0WDEP . GRATE , STATN . TEMP . REV , SPECN . ( ROUNDC ( I ) . I ■ 1 . 5 1 ) 

C 

GO TO 99 

C 
c ....... 

c . ...... 4 O CHARACTER m EG m TO EACH LINE OF TOTAL FILE. 

c ....... 

C 

999 READ(6.12.END«9999) COD ENO , SAMPNO . PRO, DATE.DXEL, TIME. 
1GEAR . TOWOEP . GRATE . STATN, TEMP . REV . EGGCON 

12 F0RMAT(A5.1X,A4.1X.X2.1X.!6.1X.I1.1X.I4 ( 1X,A1,1X.A2.A1, 
1A2.1X.F4.1.1X.F6.0.6X.I9) 

XREV-REV 

WRITEC7.31) COOENO. SAMPNO. PRO. OATE.DI EL. TIME. GEAR. 
1T0WDEP . GRATE . STATN . TEMP . X REV . EGGCON 

31 F0RMAT(A5.1X.A4.1X.X2.1X.I6.1X,I1.1X.I4,1X,A1.1X,A2. 
1A1.A2.1X,F4.1,1X,I6.1X.'EG',1X,I9) 

GO TO 999 
C 
9999 STOP 
END 
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The second reformat program is called MERGE, as shown in Table 4.35. 
This program merges the three output files provided by the LLARVARR program. 
In order to use this program, the output files were first sorted by species 
name and code number. The sorted data were stored in files SRSTATYR, SRHISTOYR, 
and SRTOTALYR, respectively. The MERGE program was then used, first to copy 
the SRTOTALYR at the beginning of a new file, and then to combine every pair 
of lines (one each from SRHISTOYR and SRSTATYR) into a single line of parameters 
in the new file. The 51 density intervals, however, were changed to a single 
density interval per line. Thus, the new file is flat, containing all informa- 
tion for fish species with their statistical values and one density interval 
per line. The new file, called MERGEYR, was sorted again at the end of the 
operation. 

This final sorted flat file named SMERGEYR was set as input to a Taxir 
Create program. The computer commands and statements used in this process 
for the 1981 field larval fish data are shown below: 

#RUN *FIN SCARDS=LLARVARR SPUNCH=LLARV.OBJ 
//RUN LLARV.OBJ 2=STAT81 4=HIST081 6-TOTAL81 

3=RSTAT81 5=RHIST081 7=RTOTAL81 
(to sort the output files in terms of species name and code number) 
//RUN *SORT PAR=SORT=CH,A,l,5,CH,A,7,2 
INPUT=RSTAT81,U,35,35 OUTPUT =SRSTAT 81 ,U,35,35 END 
//RUN *SORT PAR=S0RT=CH,A,1,5,CH,A,49,2 

INPUT=RHIST081,U,356,356 0UTPUT=SRHIST081 ,U, 356, 356 END 
//RUN *SORT PAR=S0RT=CH,A,1,5 
INPUT =RT0TAL81 , U , 64 , 64 0UTPUT=SRT0TAL81 , U , 64 , 64 END 
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TABLE 4.35, Program MERGE. 



C PROGRAM MERGE IS USED TO MERGE SRSTA7 AND SRHJSTO FILE. THE OUTPUT 
C OF THIS PROGRAM IS IN THE FORM OF FLAT FILE. 
C UNITS 3. 5. AND 7 ARE THE INPUT FILES. 
C UNIT 9 IS THE OUTPUT FILE, (FLAT FILE). 

C 

c 
c 

c 

c **»«**+ INITIALIZE VARIABLES. 

c 

INTEGER NUMX.SAMPNO.PRD, DATE, DIEL.TIME, GEAR. TOWDEP. 
1GRATE,STATN,IREV,SPN,IROUND(51) 
REAL SUMX, SUMS X, TEMP. RE V,R0UNDe(51) 
REAL*8 CODENO 

C 

£**«««*« WRITE THE SRTOTAL FILE IN THE BEGINNING OF THE 
c ,«+**** OUTPUT FILE. 

c 

REA0O.10.EN0-99) CODENO. SAMPNO. PRO. DATE.DIEU TIME, GEAR. 
1TOWDEP.GRATE.STATN.TEMP,IREV,SPN,EGGCON 
10 F0RMAT(A5,1X,A4,1X,I2,1X,I6,1X,I1,1X f I4,1X,A1.1X,A2,A1, 
1A2,1X,F4.1,1X,I6,1X,A2.1X,I9) 

WRITEC9.10) CODENO, SAMPNO, PRO, DATE, DI EL. TIME, GEAR.TOWDEP. 
1GRATE,STATN,TEMP,IREV,SPN,EGGC0N 
C 

£•+***++ R£AD 0NE LJNB FRQM SRSTAT FILE AND ONE LINE 
c ****»** fROm SRHISTO FILE AT A TIME. 

C 

99 READ(5.20,END-999) NUMI , SUMX .SUMS! 
20 F0RMAT(9X,I4.1X,F9.1,1X,F11.2) 

READ(7,30,END-999) CODENO, SAMPNO. PRO, DATE. DI EL, TIME . 
1GEAR, TOWDEP. GRATE, ST ATN, TEMP, REV, SPN.(ROUNDC( I ),X« 1,51) 
30 F0RMAT(A5,1X,A4,1X.I2,1X,I6,1X,I1,1X,I4,1X,A1.1X,A2.A1, 
1A2, 1X,F4.1,1X.F6c0.1X,A2.51F6.0) 
IREV-REV 
C 

C m *«*««* WRITE THE MERGED LINES. 

c 

DO 40 1-1,51 

IF(R0UNDC(I).E0.O.) GO TO 40 
IROUND(I)-ROUNDC(I) 

WRITE (9. 50) CODENO, SAMPNO. PRO. DATE, DIEL. TIME. GEAR, 
1T0WDEP , GRATE , ST ATN. TEMP , I REV, SPN, I ROUND ( I ) . I , 
1NUMX. SUMX. SUMS! 
50 F0RMATU5. 1X, A4 . 1X. 12. 1X, 16, 1X . 1 1 , 1X, 14 , 1X, A1 , 1X, A2 , A1 , A2. 

11X.F4. 1.1X.I6. 1X.A2.4X.I6. 1X. 12. 1X. 14 , 1X. F9 . 1 . 1X.F1 1 .2) 
40 CONTINUE 
C 

GO TO 99 
C 
999 STOP 
END 
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(to produce MERGE81) 

#RUN *FTN SCARDS=MERGE SPUNCH=MER.OBJ 

#RUN MER.OBJ 3=SRSTAT81 5=SRHIST081 7=SRTOTAL81 9=MERGE81 

(to sort MERGE81 in terms of species name, code number, and Intervals) 

#RUN *SORT PAR=SORT=CH,A,l,5,CH,A,49,2,CH,A,62,2 INPUT=MERGE81,U,90,90 OUTPUT= 

SMERGE81,U,90,90 END 

Taxir Create Program 

A Taxir Create program FLTAXIRCR is used to create the Lake. Larvae data 
bank from SMERGEYR files. This data bank is stored on the tape COOK at 
position 11. The contents of FLTAXIRCR are presented in Table 4.36. 
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TABLE 4.36. Program FLTAXIRCR. 



R *TAXIR 

CREATE LAKE. LARVAE, 

CODENO(NAME) , 

SAMPNO(NAME) , 

PERIOD (FROM TO 99), 

MONTH (FROM 1 TO 12), 

DAY (FROM 1 TO 31), 

YEAR(FROM 70 TO 85), 

DIEL(FROM TO 9) , 

TIME (FROM TO 9999), 

GEAR (NAME), 

TOWDEP(NAME) , 

GRATE (NAME), 

STATN(NAME), 

TEMP(FROM 0.0 TO 99.9), 

REV(FROM TO 999999), 

SPECN(NAME), 

SPECDEN(FROM TO 999999), 

INTERVAL (FROM TO 99), 

NUM(FROM TO 9999) , 

SUMLEN(FROM . TO 9999999.9), 

SUMSLEN(FROM 0.00 TO 9999999.99)* 

ENTER DATA LOCATION=SMERGE, FORMAT=FIXED, 

CODENO<1-5>, 

SAMPNO<7-10>, 

PERIOD<12-13>, 

MONTH< 1 5- 1 6> , 

DAY<17-18>, 

YEAR<19-20>, 

DIEL<22>, 

TIME<24-27>, 

GEAR<29>, 

TOWDEP<31-32>, 

GRATE<33>, 

STATN<34-35>, 

TEMP<37-40>, 

REV<42-47>, 

SPECN<49-50>, 

SPECDEN<55-60>, 

INTERVAL<62-63>, 

NUM<65-68>, 

SUMLEN<70-78>, 

SUMSLEN<80-90>* 

SAVE 

STOP 
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ENTRAINMENT: LARVAL FISH 



The En trained. Larvae data bank contains 12,111 items and 25 descriptors. 
The descriptors in this data bank are shown below: 



1-CASE 

2 -CODE 

3-SAMPLE NUMBER 

4-MONTH 

5-DAY 

6-YEAR 

7-J DAY 

8-MONTHPD 

9-GEAR 
10-SERIES 
11 -GRATE 
12 -NORTH/ SOUTH 
13-INTAKE /DISCHARGE 



14-DEPTH 

15-STARTH 

16-STARTM 

17-STOPH 

18-STOPM 

19-TTIME 

20-DIEL 

21 -TEMP 

22-REVS 

23-SPEC 

24-SPDEN 

25-INTERVAL 



The monthly number of data items stored in the Entrained. Larvae data bank 
is listed in Table 4.37. 
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TABLE 4.37. The number of data items stored in the Entrained. Larvae data bank. 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



Year Month 



Total # 
of Items 



75 



76 



77 



1 ( 


: 8) 


2 1 


: 8) 


3 < 


: 8) 


4 ( 


: 17) 


5 ( 


: 72) 


6 ( 


[423) 


7 ( 


[603) 


8 ( 


;201) 


9 ( 


: 22) 


10 ( 


: 21) 


11 ( 


: 22) 


12 < 


: 34) 


1 ( 


: 2i) 


2 ( 


: 25) 


3 ( 


: 25) 


4 ( 


: so) 


5 ( 


: 44) 


6 ( 


:i9i) 


7 ( 


:76i) 


8 ( 


;306) 


9 ( 


: 33) 


10 < 


: 34) 


11 ( 


: 33) 


12 ( 


: 40) 


3 ( 


: 32) 


4 ( 


: 40) 


5 ( 


: 46) 


6 ( 


;489) 


7 ( 


:3ii) 


8 ( 


:2io) 


9 ( 


: 42) 


10 ( 


: 32) 


11 1 


: i6) 


12 ( 


: 32) 



78 



79 



80 



1 ( 


: 27) 


2 ( 


: 31) 


3 ( 


: 34) 


4 ( 


: 28) 


5 < 


: 45) 


6 < 


:io9) 


7 < 


;i92) 


8 ( 


:i54) 


9 ( 


: 58) 


10 ( 


: 56) 


11 ( 


: 34) 


12 ( 


: 3i) 


1 ( 


: 28) 


2 ( 


; 32) 


3 < 


: 29) 


4 < 


: 32) 


5 ( 


: 66) 


6 ( 


;242) 


7 ( 


;482) 


8 < 


;384) 


9 < 


: 54) 


10 ( 


: 43) 


11 ( 


: 32) 


12 ( 


: 32) 


1 ( 


: 34) 


2 ( 


: 32) 


3 < 


: 3D 


4 ( 


: 36) 


5 ( 


: 62) 


6 ( 


:208) 


7 < 


;238) 


8 < 


:io8) 


9 ( 


: 38) 


10 ( 


: 33) 


11 ( 


: 32) 


12 1 


: 32) 



81 



82 



1 1 


{ 32) 


2 < 


: 32) 


3 < 


: 3d 


4 ( 


: 33) 


5 ( 


: 73) 


6 < 


: 721) 


7 < 


: 380) 


8 ( 


: 679) 


9 < 


: 42) 


10 < 


: 32) 


11 < 


: 32) 


12 ( 


: 3d 


1 ( 


: 32) 


2 ( 


: 32) 


3 ( 


: 32) 


4 ( 


: 32) 


5 ( 


: 93) 


6 < 


[1,070) 


7 ( 


[1,024) 


8 ( 


: 143) 


9 ( 


: 40) 


10 \ 


: 40) 


11 < 


: 32) 


12 1 


[ 32) 
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The procedures for establishing this data bank are as follows: 



Entrainment Larvae Fish Data 



Reformat Program 



Flat Data Files 



1 



Taxir Create Program 



ENTRAINED. LARVAE 



Reformat Program 

The original entrainment larvae fish data were stored in the file 
ENTXXHISTDEN, where XX indicates the year when the data were collected. 
The reformat program ELARVARR was then used to convert the entrained larval fish 
data into a flat-file form and to abbreviate the codes for the species names. 
These codes are shown in the reformat program (Table 4,38). It is noted that 
eggs are considered as one category for larvae and are coded as "EG." 
The computer control statements used are shown below: 

//RUN *FTN SCARDS=ELARVARR SPUNCH=EL.OBJ 
//RUN EL. OB J 5=ENTXXHISTDEN 6=REFENTXXHDEN 

Taxir Create Program 

A Taxir Create program ELTAXIRCR was used to create the En trained. Larvae 
data bank. The data bank is saved on the COOK tape at position 12. The program 
ELTAXIRCR is presented in Table 4.39. 
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TABLE 4.38. Program ELARVARR. 



PROGRAM ELARVARR IS USED TO CONVERT THE ENTRAINMENT LARVAE FISH DATA INTO 
A FLAT FILE FORM AND TO ABBREVIATE THE CODES FOR THE SPECIES NAMES. 
UNIT 5 IS THE INPUT FILE. 
UNIT 6 IS THE OUTPUT FILE, (FLAT FILE). 



C 
C 

c 

c 

c 

c 

c 

c 

c******* 

c******* 

c******* 

c 



INITIALIZE VARIABLES. 



INTEGER CASE , CARD, CODE ,SNO, MO, DAY 
I NTEGER YR , JDA Y , MOPD , I GEAR 
INTEGER SERI ES, GRATE, NS, I ID, DEPTH 
I NTEGER STARTH , STARTM , STOPH , STOPM 
INTEGER TTIME,DIEL,REVS,EGGS,C80 
INTEGER CC80,SP,SPDEN(51) 
I NTEGER* 2 SPEC 



REAL TEMP 
DIMENSION 



SPEC(19) 



INITIALIZE DATA. 



C******* 
C******* 

c******* 
c 

DATA SPEC/2HAL , 2HSP , 2HSM , 2HYP , 2HTP , 2HJD , 2HXP , 2HSS , 2HMS , 
1 2HCP , 2HNS , 2HFS , 2HQL , 2HBR , 2HUC , 2HXM , 2HXC , 2HXE , 2HXX/ 
C 

c******* 

<>•*♦••• ICHTHYOPLANKTON SPECIES AND GROUP ENTRAINED AT THE 

C******* D.C. COOK PLANT. 

C******* 

c 

************************************************************ 

♦ CODE * COMMON NAME OR CATEGORY * SCIENTIFIC NAME OR CATEGORY * 
************************************************************************* 



*(1) 
*(2) 

• (3). 

• (4) 
*(5) 

♦ (6) 
*(7) 
* 

♦ (8) 
*(9) 



AL 
SP 
SM 

YP 
TP 
JD 
XP 



SS 
MS 



• (10) CP 



• (11) 

*(12) 

• (13) 

• (14) 

• (15) 

• (16) 
♦(17) XC 
•(18) XE 

• (19) 



NS 
FS 
QL 
BR 
UC 
XM 



XX 
EG 



* ALEWIFE » 

* SPOTTAIL SHINER * 

* RAINBOW SMELT * 

* YELLOW PERCH * 

* TROUT-PERCH * 

* JOHNNY DARTER * 

* UNIDENTIFIED FISH LARVAE * 

* AS A RESULT OF POOR * 

* CONDITION * 

* SLIMY SCULPIN ♦ 

* MOTTLED SCULPIN ♦ 

* COMMON CARP * 

* NINESPINE STICKLEBACK * 

* DEEPWATER SCULPIN ♦ 

* QUILLBACK ♦ 

* BURBOT * 

* UNIDENTIFIED SCULPINS * 

* UNIDENTIFIED MINNOWS ' * 

* UNIDENTIFIED COREGONIDS * 

* UNIDENTIFIED DARTERS * 

* UNIDENTIFIED FISH LARVAE * 

* EGGS * 



ALOSA PSEUDOHARENGUS (WILSON) ♦ 
NOTROPIS HUDSONIUS (CLINTON) * 
OSMERUS MORDAX (MITCHILL) * 
PERCA FLAVESCENS (MITCHILL) ♦ 
PERCOPSIS OMISCOMAYCUS (WALBAUM)* 
ETHEOSTOMA NIGRUM (RAFINESQUE) * 

• 

• 
COTTUS COGNATUS (RICHARDSON) * 
COTTUS BAIRDI (GIRARD) * 

CYPRINUS CARPI (LINNAEUS) * 
PUNGITIUS PUNGITIUS (LINNAEUS) * 
MYOXOCEPHALUS THOMPSONI (GIRARD)* 
CARP I ODES CYPRINUS (LESUEUR) * 
LOTA LOTA (LINNAEUS) • 

COTTUS SPP. * 

CYPRINIDAE * 

COREGONUS SPP. * 

ETHEOSTOMA SPP. * 

* 



************************************************************************* 
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TABLE 4»38. (Continued). 



C 

C*****«« READ THE FIRST DATA LINE FROM THE TRANSREC FILE. 

C****««* 

C 

100 READ(5, 10,END«999) CASE , CARD , CODE ,SNO f MO , DAY ,YR f JDAY, 

1 MOPD , I GE AR , SERIES, GRATE ,NS, I ID, DEPTH ,STARTH r STARTM, 

1 STOPH ,STOPM,TTI ME, DI EL, TEMP, REVS, EGGS ,C80 
10 FORMAT(I4,I1,1X,I4,1X,I4,1X,3I2,1X,I3,1X,I2,1X,2I1,1X,2I1, 

11X,I1,I2,1X,2I2,1X,2I2,1X,I4,1X,I1,1X,F4.1,1X,I5,2X,I10,I1) 
C 

(>♦***** WRITE THE FIRST RECORD WHEN THERE ARE NO 
C*****«* HISTOGRAM VALUES EXISTED. 

C 

WRITE(6,20) CASE, CODE, SNO, MO, DAY, YR, JDAY, MOPD, I GEAR, SERIES, 
1 GRATE , NS , I I D , DEPTH , STARTH , STARTM , STOPH , STOPM , TTI ME , DI EL , 
1TEMP, REVS, EGGS 
20 FORMAT(I4,2X,I4,1X,I4,1X,3I2,1X,I3,1X,I2,1X,2I1,1X,2I1,1X, 

1I1,I2,1X,2I2,1X,2I2,1X,I4,1X,I1,1X,F4.1,1X,I5,2X, , EG , ,2X,I10) 
C 

IF(C80.EQ.0) GO TO 100 
C 

c******* 

C******* READ THE SECOND DATA LINE. 

c 

200 READ(5,30,END»999) SP, (SPDEN(L) ,L»1 ,51 ) ,CC80 

30 FORMATC ' , 10X, 5215, 5X, 15) 

C 

c*****«* 

C**«**«# COMBINE THE FIRST AND SECOND RECORDS WHEN THERE ARE 

C******* MORE THAN ONE HISTOGRAM VALUES. 

C******* 

C 

DO 40 1-1,51 

IF(SPDENd).EQ.O) GO TO 40 

WRITE (6, 50) CASE, CODE, SNO, MO, DAY, YR, JDAY, MOPD, I GEAR, SERIES, 
1 GRATE, NS, I ID, DEPTH, STARTH, STARTM, STOPH, STOPM, TTI ME, DI EL, TEMP, 
1REVS,SPEC(SP),SPDEN(I),I 
50 FORMAT(I4,2X,I4,1X,I4,1X,3I2,1X,I3,1X,I2,1X,2I1,1X,2I1, 
11X,I1,I2,1X,2I2,1X,2I2,1X,I4,1X,I1,1X,F4.1,1X,I5,2X,A2, 
12X,I10,2X,I2) 
40 CONTINUE 
C 



IF(CC80.EQ.O) GO TO 100 
GO TO 200 



C 

999 STOP 

END . 
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TABLE 4.39. Program ELTAXIRCR. 



RUN *TAXXR 

CREATE ENTRAINED. LARVAE. 

CASE (FROM O TO 9999), 

CODE (FROM O TO 9999), 

SAMPLENO(FROM O TO 9999), 

MONTH (FROM 1 TO 12). 

DAY (FROM 1 TO 31), 

YEAR (FROM 75 TO 85), 

UDAY(FROM TO 999), 

MONTHPD(FROM TO 99), 

GEAR (FROM TO 9), 

SERIES(FROM TO 9), 

GRATE (FROM TO 9), 

NOR/SOU (FROM TO 9), 

INT/DIS(FROM TO 9). 

DEPTH(FROM O TO 99), 

STARTH(FROM TO 99). 

STARTM(FROM TO 99), 

STOPH(FROM TO 99). 

STOPM(FROM O TO 99). 

TTIME(FROM O TO 9999), 

DXEL(FROM O TO 9), 

TEMP(FROM 0.0 TO 99.9), 

REVS(FROM TO 99999), 

SPEC(NAME). 

SPDEN(FROM O TO 999999999), 

INTERVAL (FROM TO 99)* 

ENTER DATA LOCATION-REFENTHIST, FORMAT-FIXED, 

CASE<1-4>, 

CODE<7-10>, 

SAMPLEN0<12-15>, 

M0NTH<17-18>, 

DAY<19-20>, 

YEAR<21-22>. 

UDAY<24-26>, 

M0NTHPD<28-29>, 

GEAR<31>, 

SERIES<32>, 

GRATE<34>, 

N0R/S0U<35>, 

INT/DIS<37>, 

DEPTH<38-39>. 

STARTH<41-42>, 

STARTM<43-44>, 

ST0PH<46-47>, 

ST0PM<48-49>, 

TTIME<51-54>, 

DIEL<56>, 

TEMP<58-61>, 

REVS<63-67>, 

SPEC<70-71>, 

SPDEN<74-83>, 

INTERVAL<86-87>* 

SAVE 

STOP 
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NUTRIENT AND ANION 

The Nutrients data bank contains 12 descriptors and 10 items. It in- 
cludes the data from both entrainment and lake samples. The descriptors for 
this data bank are: 



1 -STATION 

2 -MONTH 

3-YEAR 

4-TOTAL P 

5-0RTH0PH0SPHATE P 

6-DISS0LVED SILICA Si0 2 



7-TEMPERATURE 

8-NITRATE N 

9-NITRITE N 
10-CHLORIDE 
11 -SULFATE 
12-OXYGEN SATURATION 



Total P and orthophosphate P are in units of ppb while dissolved silica 

Si02, nitrate N, nitrite N, chloride, and sulfate are in units of ppm. 

The number of data items stored in the Nutrients data bank is shown in 
Table 4.40. 
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TABLE 4.40. The number of data items in the Nutrients data bank. 







Total # 






Total # 






Total # 


Year 


Month 


of Items 


Year 


Month 


of Items 


Year 


Month 


of Items 


74 


4 
5 
6 


(18) 
(23) 
(18) 


78 


1 
2 
3 




81 


1 
2 
3 






7 


(25) 




4 


(31) 




4 


(31) 




8 


(25) 




5 






5 






9 


(ID 




6 






6 






10 


(15) 




7 


(31) 




7 


(31) 


75 


4 
7 


(24) 
(30) 




8 
9 






8 
9 






10 


(18) 




10 


(31) 




10 


(31) 


76 


1 
2 






11 
12 






11 
12 






3 




79 


1 




82 


1 






4 


(19) 




2 






2 






5 






3 






3 






6 






4 


(31) 




4 


(31) 




7 


(31) 




5 






5 






8 






6 












9 






7 


(31) 










10 






8 












11 






9 












12 






10 


(31) 








77 


3 

4 

5 

6 

7 

8 

9 

10 

11 

12 


(31) 
(31) 
(31) 


80 


11 

12 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 


(31) 
(31) 
(31) 
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The steps for establishing the Nutrients data bank are shown on the 
diagram below: 



Flat Data File 



NUTRIENTS 



Taxir Create Program 

A Taxir Create program NUTTAXIRCR was used to create the Nutrients data 
bank which is stored as NUTRIENTS on tape COOK at position 14. The contents 
of NUTTAXIRCR are shown in Table 4.41. 
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TABLE 4.41. Program NUTTAXIRCR. 



R *TAXIR 

CREATE NUTRIENTS, 

STATION (NAME), 

MONTH (FROM 1 TO 12), 

YEAR(FROM 74 TO 82), 

TOTAL P(FROM 0.000 TO 9999.999), 

ORTHOPHOSPHATE P(FROM 0.000 TO 9999.999), 

DISSOLVED SILICA SI02(FROM 0.000 TO 9999.999), 

TEMPERATURE C ( FROM 0.00 TO 100.00), 

NITRATE N(FROM 0.000 TO 9999.999), 

NITRITE N(FROM 0.000 TO 9999.999), 

CHLORIDE (FROM 0.000 TO 9999.999), 

SULFATE (FROM 0.000 TO 9999.999), 

OXYGEN SATURATION (FROM 0.000 TO 9999.999)* 

ENTER DATA LOCATION=REFREM, FORMAT=FIXED, 

STATION<1-20>, 

MONTH<21-30>, 

YEAR<31-40>, 

TOTAL P<41-50>, 

ORTHOPHOSPHATE P<51-60>, 

DISSOLVED SILICA SIO2<61-70>, 

TEMPERATURE C<71-80>, 

NITRATE N<81-90>, 

NITRITE N<91-100>, 

CHLORIDE<101-110>, 

SULFATE<111-120>, 

OXYGEN SATURATIONS 2 1-130>* 

SAVE 

STOP 
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LAKE WATER CHEMISTRY 

The Lakewater data bank contains 48 descriptors and 735 items. The data 
are solely from lake samples. The descriptors for this data bank are: 



1-STATION 
2-MONTH 
3-YEAR 

4-TOTAL PHOSPHORUS-PPB 
5-0RTH0PH0SPH0RUS-PPB 
6-DISSOLVED SILICA-PPM 
7-TEMPERATURE-DEGREES C 
8-NITRATE-PPM N 
9-NITRITE-PPM N 
10- CHLORIDE -PPM 
11 -SULFATE -PPM 
12-OXYGEN SATURATION PERCENT 
13-ALKALINITY-MEQ/L 
14-DISSOLVED BARIUM-PPB 
15-DISSOLVED CALCIUM-PPM 
16-DISSOLVED CADMIUM-PPM 
17-DISS0LVED COBALT-PPB 
18-DISSOLVED CHROMIUM-PPB 
19-DISSOLVED COPPER-PPB 
20-DISSOLVED IRON-PPB 
21-DISS0LVED POTASSIUM-PPM 
22-DISSOLVED MAGNESIUM-PPM 
23-DISSOLVED MANGANESE-PPB 
24 -DISSOLVED MOLYBDENUM-PPB 



25-DISSOLVED SODIUM-PPM 
2 6-DISSOLVED NICKEL-PPB 
27-DISSOLVED LEAD-PPB 
28-DISSOLVED STRONTIUM-PPB 
29-DISSOLVED ZINC-PPB 
30-PH 

31-SECCHI DISK-M 
32-EH-MV 

33-CONDUCTIVITY-UMHOS 
34-SAMPLE DEPTH-M 
35-PARTICULATE BARIUM-PPM 
36-PARTICULATE CALCIUM-PPM 
37 -PARTICULATE COBALT-PPM 
38-PARTICULATE CHROMIUM-PPM 
39-PARTICULATE COPPER-PPM 
40-PARTICULATE IRON-PPM 
41-PARTICULATE POTASSIUM-PPM 
42 -PARTICULATE MAGNESIUM-PPM 
43-PARTICULATE MANGANESE-PPM 
44-PARTICULATE MOLYBDENUM-PPM 
45-PARTICULATE SODIUM-PPM 
46-PARTICULATE NICKEL -PPM 
47-PARTICULATE STRONTIUM-PPM 
48-PARTICULATE ZINC -PPM 



The unit for each descriptor is indicated in the descriptors after the 

The number of data items stored in the Lakewater data bank is shown 
in Table 4.42. 



sign "-". 
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TABLE 4,42. The number of data items in the Lakewater data bank. 









Total # 






Total # 






Total # 


Year 


Month 


of Items 


Year 


Month 


of Items 


Year 


Month 


of Items 


74 


4 


(18) 


76 


4 


(18) 


80 


4 


(30) 




5 


(23) 




7 


(30) 




7 


(30) 




6 


(18) 


77 


4 


(30) 




10 


(30) 




7 


(25) 




7 


(30) 


81 


4 


(30) 




8 


(25). 




10 


(30) 




7 


(30) 




9 


(11) 


78 


4 


(30) 




10 


(30) 




10 


(15) 




7 


(30) 


82 


4 


(30) 


75 


4 


(24) 




10 


(30) 










7 


(24) 


79 


4 


(30) 










8 


( 6) 




7 


(30) 










10 


(18) 




10 


(30) 









Taxir Create Program 

A Taxir Create program TAXSOURCEWAT was used to create the Lakewater data 
bank which is stored as LAKEWATER on tape COOK at position 15. The content of 
TAXSOURCEWAT is shown in Table 4.43. The line file from which the Taxir data 
base was created is named C00KWATER. 
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TABLE 4.43. Program TAXSOURCENAT . 



RUN *TAXIR 

CREATE LAKEWATER, 

STATION (NAME), 

MONTH (FROM 1 TO 12), 

YEAR(FROM 73 TO 85) , 

TOTAL PHOSPHORUS-PPB(FROM 0.00 TO 3300.00), 

ORTHOPHOSPHORUS-PPB(FROM 0.00 TO 1500.00); 

DISSOLVED SILICA-PPM SI02(FROM 0.00 TO 12.30), 

TEMPERATURE-DEGREES C (FROM 0.0 TO 30.0), 

NITRATE-PPM N*(FROM 0.00 TO 1.50), 

NITRITE-PPM N (FROM 0.000 TO 0.100), 

CHLORIDE-PPM (FROM 1.00 TO 110.00), 

SULFATE-PPM (FROM 6.00 TO 70.00), 

OXYGEN SATURATION PERCENT (FROM 0.0 TO 160.0), 

ALKALI NITY-MEQ/L (FROM 1.00 TO 5.00), 

DISSOLVED BARIUM- PPB (FROM 10.0 TO 130.0), 

DISSOLVED CALCIUM-PPM (FROM 20.0 TO 80.0), 

DISSOLVED CADMIUM-PPM (FROM 0.120 TO 0.250), 

DISSOLVED COBALT-PPB (FROM 0.050 TO 5.000), 

DISSOLVED CHROMIUM-PPB (FROM 0.500 TO 3.700), 

DISSOLVED COPPER-PPB (FROM 0.900 TO 10.600), 

DISSOLVED IRON-PPB (FROM 1.50 TO 460.00), 

DISSOLVED POTASSIUM-PPM (FROM 0.700 TO 7.100), 

DISSOLVED MAGNESIUM-PPM (FROM 7.40 TO 32.00), 

DISSOLVED MANGANESE-PPB (FROM 0.050 TO 184.000), 

DISSOLVED MOLYBDENUM-PPB (FROM 2.20 TO 41.50), 

DISSOLVED SODIUM-PPM (FROM 2.80 TO 69.50), 

DISSOLVED NICKEL-PPB (FROM 2.00 TO 54.50), 

DISSOLVED LEAD-PPB (FROM 0.600 TO 0.680), 

DISSOLVED STRONTIUM-PPB (FROM 40.0 TO 190.0), 

DISSOLVED ZINC-PPB (FROM 0.30 TO 97.00), 

PH (FROM 7.40 TO 8.85), 

SECCHI DISK-M (FROM 0.65 TO 12.50), 

EH-MV (FROM 370 TO 640), 

CONDUCTIVITY-UMHOS (FROM 212 TO 672), 

SAMPLE DEPTH-M (FROM 0.0 TO 30.0), 

PARTICULATE BARIUM-PPM (FROM 0.0000 TO 0.0160), 

PARTICULATE CALCIUM-PPM (FROM 0.00 TO 2.32), 

PARTICULATE COBALT- PPM (FROM 0.00 TO 0.01), 

PARTICULATE CHROMIUM-PPM (FROM 0.0000 TO 0.0110), 

PARTICULATE COPPER-PPM (FROM 0.00000 TO 0.00930), 

PARTICULATE IRON-PPM (FROM 0.000 TO 1.000), 

PARTICULATE POTASSIUM-PPM (FROM 0.000 TO 0.380), 

PARTICULATE MAGNESIUM-PPM (FROM 0.000 TO 1.000), 

PARTICULATE MANGANESE-PPM (FROM 0.000 TO 0.120), 

PARTICULATE MOLYBDENUM- PPM (FROM 0.00000 TO 0.00570), 

PARTICULATE SODIUM-PPM (FROM 0.0250 TO 5.8000), 

PARTICULATE NICKEL-PPM (FROM 0.00000 TO 0.00270), 

PARTICULATE STRONTIUM-PPM (FROM 0.00000 TO 0.00260), 

PARTICULATE ZINC-PPM (FROM 0.0000 TO 0.2200 )* 

ENTER DATA LOCATION -WATER, FORMAT-FIXED, 

STATION <1-20>, 

MONTH <21-23>, 

YEAR <24~26>, 

TOTAL PHOSPHORUS -PPB <27-38>, 

ORTHOPHOSPHORUS-PPB <39-50>, 

DISSOLVED SILICA-PPM SI02 <51-62>, 

TEMPERATURE-DEGREES C <63-74>, 

NITRATE-PPM N <75-86>, 

NITRITE-PPM N <87-98>, 
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TABLE 4.43. (Continued). 



CHLORIDE-PPM <99-110>, 
SULFATE-PPM <1t1-122>, 
OXYGEN SATURATION PERCENT <123-134> f 
ALKALI NITY-MEQ/L <135-146>, 
DISSOLVED BARIUM-PPB <147-158>, 
DISSOLVED CALCIUM-PPM <159-170>, 
DISSOLVED CADMIUM-PPM <171-182>, 
DISSOLVED COBALT-PPB <183-194>, 
DISSOLVED CHROMIUM-PPB <195-206>, 
DISSOLVED COPPER-PPB <207-218>, 
DISSOLVED IRON-PPB <219-230>, 
DISSOLVED POTASSIUM-PPM <231-242>, 
DISSOLVED MAGNESIUM-PPM <243-254>, 
DISSOLVED MANGANESE-PPB <255-266>, 
DISSOLVED MOLYBDENUM-PPB <267-278>, 
DISSOLVED SODIUM-PPM <279-290>, 
DISSOLVED NICKEL-PPB <291-302>, 
DISSOLVED LEAD-PPB <303-314>, 
DISSOLVED STRONTIUM-PPB <315-326>, 
DISSOLVED ZINC-PPB <327-338>, 
PH <339-350>, 
SECCHI DISK-M <351-362>, 
EH-MV <363-374>, 
CONDUCTIVITY-UMHOS <375-386>, 
SAMPLE DEPTH-M <387-398>, 
PARTICULATE BARIUM-PPM <399-410>, 
PARTICULATE CALCIUM-PPM <411-422>, 
PARTICULATE COBALT-PPM <423-434>, 
PARTICULATE CHROMIUM-PPM <435-446>, 
PARTICULATE COPPER-PPM <447-458>, 
PARTICULATE IRON-PPM <459-470>, 
PARTICULATE POTASSIUM-PPM <471-482>, 
PARTICULATE MAGNESIUM-PPM <483-494>, 
PARTICULATE MANGANESE-PPM <495-506>, 
PARTICULATE MOLYBDENUM- PPM <507-518>, 
PARTICULATE SODIUM-PPM <519-530>, 
PARTICULATE NICKEL-PPM <531-542>, 
PARTICULATE STRONTIUM-PPM <543-554>, 
PARTICULATE ZINC-PPM <555-566>* 
SAVE 
STOP 
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SEDIMENT TEXTURE AND CHEMISTRY 

The Sediments data bank contains 52 descriptors and 430 items, 
are from lake samples. The descriptors for this data bank are: 



The data 



1-STATION 
2 -YEAR 

3-STATION DEPTH-M 
4-STATI0N NUMBER 
5-SAMPLE DEPTH-CM 
6-LOSS ON IGNITION-% 
7-WATER CONTENT-% 
8—3 PHI-% 
9—2 PHI-% 

10—1 PHI-% 

11-0 PHI-% 

12-1 PHI-% 

13-2 PHI-% 

14-3 PHI-% 

15-4 PHI-% 

16-5 PHI-% 

17-6 PHI-% 

18-7 PHI-% 

19-8 PHI-% 

20-9 PHI-% 

21-10 PHI-% 

22-GRAVEL-% 

23-SAND-% 

24-SILT-% 

25-CLAY-% 

26-MEAN GRAIN SIZE-PHI 



27-STANDARD DEVIATION OF MEAN GRAIN SIZE-PHI 

28-KURTOSIS OF GRAIN SIZE 

29-SKEWNESS OF GRAIN SIZE 

30-INS0LUBLE FRACTION-% 

31-BARIUM-% 

32-TOTAL CARBON-% 

33-INORGANIC CARBON-% 

34-ORGANIC CARBON-% 

35-CALCIUM-% 

36-COBALT-% 

37-CHROMIUM-% 

38-C0PPER-% 

39-IRON-% 

40-P0TASSIUM-% 

41-MAGNESIUM-% 

42-MANGANESE-% 

43-M0LYBDENUM-% 

44-SODIUM-% 

45-NICKEL-% 

46-LEAD-% 

47-STRONTIUM-% 

48-ZINC-% 

49-EH-MV 

50-PH 

51-X-L0CATI0N 

52-Y-LOCATION 



The number of data items stored in the Sediments data bank is shown in 
Table 4.44. 
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TABLE 4.44. The number of data items in the Sediments data bank. 



Year Total Number of Items 



1973 (158) 

1975 (160) 

1977 (112) 



Taxir Create Program 

A Taxir Create program TAXSOURCESED was used to create the Sediments data 
bank which is stored as SEDIMENTS on tape COOK at position 16. The content of 
TAXSOURCESED is shown in Table 4.45. The line file from which the Taxir data 
base was created is named COOKSEDIMENT . 
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TABLE 4.45. Program TAXSOURCESED . 



RUN *TAXIR 

CREATE SEDIMENTS, 

STATION (NAME), 

YEAR(FROM 1973 TO 1977), 

STATION DEPTH-M (FROM 4.5 TO 61.5), 

STATION NUMBER (FROM 1. TO 233.), 

SAMPLE DEPTH-CM (FROM 0.5 TO 62.5), 

LOSS ON IGNITION-% (FROM 0.7 TO 60.4), 

WATER CONTENT-% (FROM 14.4 TO 95.3), 

-3 PHI-% (FROM 0.00 TO 8.47), 

-2 PHI-% (FROM 0.00 TO 20.71), 

-1 PHI-% (FROM 0.00 TO 42.38), 

PHI-% (FROM 0.00 TO 57.15), 

1 PHI-% (FROM 0.00 TO 65.41), 

2 PHI-% (FROM 0.00 TO 82.51), 

3 PHI-% (FROM 0.00 TO 81.01), 

4 PHI-% (FROM 0.00 TO 85.70), 

5 PHI-% (FROM 0.00 TO 39.40), 

6 PHI-% (FROM 0.00 TO 26.86), 

7 PHI-% (FROM 0.00 TO 64.76), 

8 PHI-% (FROM 0.00 TO 23.58), 

9 PHI-% (FROM 0.00 TO 9.36), 

10 PHI-% (FROM 0.00 TO 19.62), 
GRAVEL-% (FROM 0.00 TO 63.10), 
SAND-% (FROM 15.60 TO 102.00), 
SILT-% (FROM 0.00 TO 62.30), 
CLAY-% (FROM 0.00 TO 47.90), 

MEAN GRAIN SIZE-PHI (FROM -1.300 TO 6.100), 

STANDARD DEVIATION OF MEAN GRAIN SIZE-PHI (FROM 0.130 TO 2.900), 

KURTOSIS OF GRAIN SIZE (FROM -5.600 TO 2.500), 

SKEWNESS OF GRAIN SIZE (FROM -3.000 TO 35.000), 

INSOLUBLE FRACTION-% (FROM 6.00 TO 99.00), 

BARIUM-% (FROM 0.000000 TO 0.019000), 

TOTAL CARBON-% (FROM 0.15 TO 7.45), 

INORGANIC CARBON-% (FROM 0.00 TO 5.30), 

ORGANIC CARBON-% (FROM 0.00 TO 5.30), 

CALCIUM-% (FROM 0.000 TO 11.700), 

COBALT-% (FROM 0.000140 TO 0.004200), 

CHROMIUM-% (FROM 0.000018 TO 0.025000), 

COPPER-% (FROM 0.000020 TO 0.005000), 

IRON-% (FROM 0.120 TO 9.200), 

POTASSIUM-% (FROM 0.035 TO 0.760), 

MAGNESIUM-% (FROM 0.000 TO 8.740), 

MANGANESE-% (FROM 0.000730 TO 0.095000), 

MOLYBDENUM-% (FROM 0.000000 TO 0.003580), 

SODIUM-% (FROM 0.0100 TO 0.0860), 

NICKEL-% (FROM 0.000000 TO 0.010300), 

LEAD-% (FROM 0.000094 TO 0.001090), 

STRONTIUM-% (FROM 0.000380 TO 0.010700), 

ZINC-% (FROM 0.00100 TO 0.03000), 

EH-MV (FROM -70.0 TO 485.0), 

PH (FROM 6.95 TO 8.55), 

X-LOCATION (FROM 1.00 TO 18.00), 

Y-LOCATION (FROM 0.75 TO 10.00)* 

ENTER DATA LOCATION=COOKSEDIMENT, FORMAT* FIXED, 

STATION <1-16>, 

YEAR <17-21>, 

STATION DEPTH-M <22-31>, 

STATION NUMBER <32-41>, 

SAMPLE DEPTH-CM <42-51>, 
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TABLE 4.45. (Continued). 



LOSS ON IGNITION-% <52-61>, 
WATER CONTENT- % <62-71>, 
-3 PHI-% <72-81>, 
-2 PHI-% <82-91>, 
-1 PHI-% <92-101>, 

PHI-% <102-111> ( 

1 PHI-% <112-121>, 

2 PHI-% <122-131>, 

3 PHI-% <132-141>, 

4 PHI-% <142-151>, 

5 PHI-% <152-16!> 1 

6 PHI-% <162-171> J 

7 PHI-% <172-181>, 

8 PHI-% <182-191>, 

9 PHI-% <192-201> ( 

10 PHI-% <202-211>, 
GRAVEL-% <2 12-22 1>, 
SAND-% <222-231>, 
SILT-% <232-241>, 
CLAY-% <242-251> f 

MEAN GRAIN SIZE-PHI <252-261>, 

STANDARD DEVIATION OF MEAN GRAIN SIZE-PHI <262-271>, 

KURTOSIS OF GRAIN SIZE <272-281>, 

SKEWNESS OF GRAIN SIZE <282-291>, 

INSOLUBLE FRACTION-% <292-301>, 

BARIUM-% <302-311>, 

TOTAL CARBON-% <312-321>, 

INORGANIC CARBON-% <322-331>, 

ORGANIC CARBON-% <332-341>, 

CALCIUM-% <342-351>, 

COBALT-% <352-361>, 

CHROMIUM-% <362-371>, 

COPPER-% <372-381>, 

IRON-% <382-391>, 

POTASSIUM-% <392-401>, 

MAGNESIUM-% <402-411>, 

MANGANESE-% <412-421>, 

MOLYBDENUM-% <422-431>, 

SODIUM-% <432-441>, 

NICKEL-% <442-451>, 

LEAD-% <452-461>, 

STRONTIUM-% <462-471>, 

ZINC-% <472-481>, 

EH-MV <482-491>, 

PH <492-501>, 

X-LOCATION <502-511>, 

Y-LOCATION <512-521>« 

SAVE 

STOP 
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CHAPTER 5 
INTERACTIVE PROGRAM 

PROGRAM INTERACT 

The program INTERACT (Table 5.1) is an interactive computer program which 
is written to provide on-line instructions to users wishing to access the Cook 
water quality data base. It is hoped that this interactive program can facili- 
tate the use of this data base by users with little or no knowledge of computer 
programming, MTS, or Taxir. The program INTERACT consists of seven major 
commands for accessing the data base. A brief description of these commands 
is given below. 

1. "H" » HELP 

This program offers a HELP file (Table 5.2) which users can request 
at any point in the data accessing process. By simply typing in the 
command "H," users are provided with a complete explanation of other 
commands used in connection with the data base. 

2. "S" - SELECT DATA BANK 

Any one of the 13 data banks contained in the data base system can be 
selected using this command. Since it is impossible to keep all 13 
data banks on line at all times, an additional program has been written 
to access those data which are stored on a computer tape. This FORTRAN 
program is called LINK (Table 5.3). It will select and restore 
information from a tape whenever a file restoration request is made. 
When the job is completed, the computer will return to this main 
program INTERACT. 
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3- "0" = SELECT OUTPUT OPTION 

This command provides three possible options for output; terminal 
screen, temporary or permanent line file, and MTS line or page printer, 

4. "V" = VARIABLE DESCRIPTION 

The list and types of descriptors in this data base management system 
can be obtained using this command. 

5. "P" = PERCENTAGE OF TOTAL DATA ITEMS 

The percentage of total data items can be obtained by applying this 
command . 

6. "Q" - QUERY 

This is an important command for retrieving data. By typing "Q," 
users can query the needed information and generate necessary tables 
and reports with requested data. 

7. "T" = TERMINATE THE PROGRAM 

Entering "T" results in the termination of the execution of the 

program. 
In the following presentation of the computer programs INTERACT and LINK, 
boxes have been used to provide information and explanations of the different 
stages of operations, as well as the assignments for the input and output units 
and devices. 

INTERFACE WITH TAXIR USING INTERACT 

INTERACT is a FORTRAN-based interactive program. It acts as an inter- 
mediary between the users and Taxir by asking the users a series of questions 
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TABLE 5.1. Program INTERACT. 



C THIS INTERACTIVE PROGRAM INTERFACES WITH TAXIR TO RETRIEVE DATA 

C FROM THE 13 DATA BANKS CREATED FOR COOK PROJECT. TO WORK WITH A 

C PARTICULAR DATA BANK, THE DATA SHOULD BE AVAILABLE ON LINE IN A 

C TEMPORARY OR PERMANENT FILE. HOWEVER, THIS PROGRAM HAS AN OPTION 

C TO RESTORE THE DATA BANKS FROM A TAPE. 

C 

C TO RUN THIS PROGRAM TYPE: "SOURCE INTERACTIVE" 

C 

C IN THE RUN COMMAND UNITS ARE ASSIGNED AS FOLLOW: 

C UNIT 5 IS ASSIGNED TO ♦MSOURCE* TO READ THE INPUT FROM THE* SCREEN. 

C UNIT 6 IS ASSIGNED TO ♦SINK* TO PRINT THE MESSAGES ON THE SCREEN. 

C TAXIR MESSAGES ARE WRITTEN ON SERCOM. IN THIS PROGRAM SERCOM IS 

C ASSIGNED TO A TEMPORARY FILE CALLED "-CHECK". 

C UNIT 7 IS ALSO ASSIGNED TO "-CHECK" TO CHECK TAXIR MESSAGES. 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



MAIN PROGRAM TO INITIALIZE & CALL * 
SYSTEM SUBROUTINES. * 



c 
c 



LOGICAL* 1 RESP 
LOGICAL EQUC 

CALL INITLZ 

WRITE(6, 1) 
1 FORMAT (//,' ARE YOU ALREADY FAMILIAR WITH THE PROGRAM?'/, 

1'TYPE "Y" FOR YES TO SKIP THE DESCRIPTION OF THE COMMANDS. '/, 
1'TYPE "N" IF YOU NEED HELP.') 
C 
C 

CALL FREAD( 5,' STRING: ', RESP, 1) 

IF(EQUC('Y' , RESP). OR. EQUCCy' , RESP)) GOTO 1000 

CALL HELP(O) 
C 
C 
1000 CALL CMDNOE('$EM -CHECK ',1Q) 

WRITE(6,4) 
4 FORMAT*//, 'SELECT NEXT COMMAND: (H,S,0,V,P,Q,T) ' ) 
C 
C******* 

C******* ACCEPT A COMMAND AND DECODE IT. 
C***«**« 

c 

CALL DECODE (NCOMND) 

GO TO (10,20,30,40,50,60,70), NCOMND 



c 




10 


CALL HELPO) 




GO TO 1000 


c 




20 


CALL SELDB 




GO TO 1000 


C 




30 


CALL OUTOP 
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TABLE 5.1. (Continued). 



GO TO 1000 
C 
40 CALL VOCAB 

GO TO 1000 
C 
50 CALL PERCNT 

GO TO 1000 
C 
60 CALL QUERY 

GO TO 1000 
C 
70 CALL TERMIN 

GO TO 1000 
C 

c 

END 

SUBROUTINE INITLZ 
C 
C 
C 
c *****«*#**:*#«***#***#****«*« 

c * * 

C * SUBROUTINE INITLZ; TO INITIALIZE TAXIR PROGRAM. * 

C * * 

c #*************************«****#****«****#«*******«******«**«**« 

c 
c 
c 



c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 
c 



CALL TAXIRCDUMMY' ,0) 

CALL FREAD ( -2 , f LENGTH ' , . TRUE . ) 

CALL FREAD(-2, 'DELIMITERS 1 ,' /%*/;/' ) 



RETURN 

END 

SUBROUTI NE DECODE ( NCOMND ) 



*****************t****************t *********************** 

* 
SUBROUTINE DECODE; TO RECEIVE THE COMMAND & * 
DECODE IT. * 

* 
********************************************************** 



LOGICAL*! RESP 
LOGICAL EQUC 



NERR»0 
10 NCOMND»0 
LEN=1 

CALL FREAD ( 5 , ' STRI NG : f , RESP , LEN ) 
IFCEQUCCH' r RESP).OR.EQUC( f h' ,RESP)) NCOMND»1 
IFtEQUCCS* r RESP).OR.EQUC( , S t ,RESP)) NCOMND»2 
IF(EQUC(*O f , RESP). OR. EQUC Co* ,RESP)) NCOMND*3 
IF(EQUC( f V f ,RESP).OR.EQUC('v f ,RESP)) NCOMND-4 
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C 
C 

c 
c 



c 



IF(B:QUC('P' r RESP).OR.EQUC( ? p f ,RESP)) NCOMND»5 
IF(B;QUC('Q' ,RESP).OR.EQUC('q' ,RESP)) NCOMND-6 
IF(EQUC('T' ,RESP).OR.EQUC('t' ,RESP)) NCOMND«7 



IF(NCOMND.GT.O) RETURN 



NERR-NERR+ 1 
IF(NERR.GE.2) GO TO 20 



WRITE(6,1) 

1 FORMAT (//, 'INVALID COMMAND, TRY AGAIN.") 
GO TO 10 

C 

C******* 

C******* PRINT THE LIST OF COMMANDS. 

C******* 

C 

20 WRITE(6,2) 

2 FORMAT (//, 'INVALID COMMAND! THE COMMANDS ARE:'//, 
1'H HELP'/, 

TS SELECT DATA BANK'/, 

TO SELECT OUTPUT OPTION'/, 

1'V VARIABLE DESCRIPTION' /, 

1i'P PERCENTAGE OF TOTAL DATA ITEMS'/, 

1'Q QUERY' /, 

1'T TERMINATE THE PROGRAM!') 



C 
C 



c 
c 



NERR-0 
GO TO 10 



****************************************** ******************* 

SUBROUTINE HELP ; THIS ROUTINE IS USED TO HELP 
THE USER TO UNDERSTAND THE QUERY COMMANDS USED 
IN THE PROGRAM. THE PROGRAM CONTENTS ARE READ 
FROM THE MTS LINE FILE "SDLSiHELP" . 

*********************************************** ************** 



END 

SUBROUTINE HELP(I) 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

IF(I.NB.O) GO TO 5 

CALL CMDNOE('$COPY SDLS:HELP(001 , 071 ) TO *SINK*§SP ' ,38) 
RETURN 
C 

c 

5 WRITE(6,1) 

1 FORMAT (//, 'HELP: SELECT THE COMMAND THAT YOU WANT TO '/, 

1'BE EXPLAINED: (H, S,0,V,P,Q,T) ' ) 
C 
C 
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CALL DECODE (NCOMND) 
C 

GO TO(10,20,30,40 r 50,60,70), NCOMND 
C 
10 CALL CMDNOECICOPY SDLS:HELP(072, 089) TO *SINK*eSP ',38) 

RETURN 
C 
20 CALL CMDNOE( f $COPY SDLS : HELP ( 090 , 104) TO *SINK*§SP ',38) 

RETURN 
C 
30 CALL CMDNOE('$COPY SDLS :HELP( 105 , 120) TO *SINK*I>SP ' ,38) 

RETURN 
C 
40 CALL CMDNOE('$COPY SDLS :HELP( 121 , 135) TO *SINK*f>SP ',38) 

RETURN 
C 
50 CALL CMDNOE('$COPY SDLS :HELP( 136, 151 ) TO *SINK*$SP ',38) 

RETURN 
C 
60 CALL CMDNOE('$COPY SDLS sHELP( 152, 166) TO *SINK*§SP ',38) 

RETURN 
C 

70 CALL CMDNOE('$COPY SDLS:HELP( 167, 181 ) TO *SINK*$SP ',38) 
C 

c 

RETURN 
END 

SUBROUTINE SELDB 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

INTEGER ERRNUM 
LOGICAL* 1 RESP 
LOGICAL EQUC 
C 

c******* 

C******* PRINT THE LIST OF DATA BANKS. 
C******* 

c 

10 WRITE(6,2) 

2 FORMAT (//, 'THE DATA BANKS AND THEIR CODE NUMBERS ARE;', 

1//, 

1 ' LAKE . PHYTOPLANKTON OR 1' / , 

1 ' ENTRAI NED . PHYTOPLANKTON OR 2 ' / , 

1 ' LAKE . ZOOPLANKTON OR 3 ' / , 

1 ' ENTRAI NED . 200PLANKTON OR 4 ' / , 

1 f LAKE . BENTHOS OR 5 ' / , 

1 ' ENTRAI NED • BENTHOS OR 6 ' / , 

r IMPINGED. BENTHOS OR 7'/, 

1 ' ADULT • FI SH . SUMMARY . STATI STI CS OR 8 • / , 

1» LAKE. ADULT. FISH OR 9'/, 
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OR 


10'/, 


OR 


11V, 


OR 


12V, 


OR 


13V, 


OR 


14*/, 


OR 


15') 



1 f IMPINGED. ADULT. FISH 
T LAKE. LARVAE 
1 ' ENTRAI NED . LARVAE 
1 ' NUTRI ENT . AND . ANI ON 
1 f LAKEWATER . CHEMI STRY 
1 f SEDIMENTS 
C 

c******* 

C****»** CHECK THE AVAILABILITY OP THE DATA BANK(S). 

C******* 

C 

20 WRITE(6,3) 

3 FORMAT (///THE DATA SHOULD BE AVAILABLE ON LINE.'/, 
VIS THE DATA BANK OF YOUR INTEREST AVAILABLE ON LINE?'/, 
1 f PLEASE ANSWER "Y" OR "N"/) 

C 
C 

LEN»1 

CALL FREAD ( 5 , * STRI NG : ' , RESP , LEN ) 

IF(EQUC('Y' ,RESP).OR.EQUC('y» ,RESP) ) GO TO 30 

CALL CMDNOE ( ' SOURCE RESTORE ' , 1 4 ) 

STOP 
C 

c 

30 WRITE(6,4) 

4 FORMAT (///TO PLACE THE REQUESTED DATA BANK IN THE TAXIR PROGRAM//, 
TENTER THE DATA BANK CODE NUMBER:'/, 

1'(EX: ENTER 1 FOR LAKE . PHYTOPLANKTON )» ) 



C 
C 



C 
C 



CALL FREAD (5 ' I • ' IC) 

GO TO (110,120, 130,140, 150,160, 170,180, 190,200, 210 , 220 , 230 , 240 , 250) ,IC 



WRITE(6,5) 
5 FORMAT (///BAD OPTION! 1 ) 

GO TO 10 
C 

C****«*« 

C****»** TAXIR INTERFACE WITH THE DATA BASE, 
C******* 
C 
1 1 CALL TAXI R ( • GET LAKE . PHYTOPLANKTON f , 2 2 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY' ,-1 ) 

CALL CMDNOE ( f $EM -CHECK ',10) 

CALL TAXIR( f GET -LAKE.PHYTO' ,15) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
1 2 CALL TAXI R ( f GET ENTRAI NED . PHYTOPLANKTON ' , 2 7 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRC DUMMY' ,-1) 

CALL CMDNOE ( f $EM -CHECK' ,10) 

CALL TAXI R ( ' GET -ENT . PHYTO ',14) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 
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GO TO 300 
C 
1 3 CALL TAXI R ( ' GET LAKE . ZOOPLANKTON ',20) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY', -1) 

CALL CMDNOE( ' $EM -CHECK' ,10) 

CALL TAXI R ( ' GET -LAKE . 200 ' , 1 3 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
140 CALL TAXIRCGET ENTRAINED. ZOOPLANKTON' , 25) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY' ,-1) 

CALL CMDNOE ( ' $EM -CHECK ' , 1 ) 

CALL TAXIRCGET -ENT.ZOO' , 12) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
1 5 CALL TAXI R ( ' GET LAKE . BENTHOS ' , 1 6 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY', -1) 

CALL CMDNOE ( ' $EM -CHECK' ,10) 

CALL TAXIRCGET -LAKE. BEN' , 13) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
160 CALL TAXIRCGET ENTRAINED. BENTHOS' ,21 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY' ,-1) 

CALL CMDNOE ( ' $EM -CHECK' ,10) 

CALL TAXIRCGET -ENT.BEN' , 12) 

CALL ERRCHK(ERRNUM) 

IF1ERRNUM.EQ.0) RETURN 

GO TO 300 
C 
1 7 CALL TAXI R ( ' GET I MPI NGED . BENTHOS ',20) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY' ,-D 

CALL CMDNOE ( ' $EM -CHECK' ,10) 

CALL TAXIRCGET -IMP. BEN' , 12) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
180 CALL TAXIRCGET ADULT. FISH. SUMMARY. STATISTICS' ,33) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY' ,-1) 

CALL CMDNOE C$EM -CHECK ',10) 

CALL TAXIRCGET -AD.FISH.S.S' , 16) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 
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GO TO 300 
C 
1 90 CALL TAXI R ( f GET LAKE . ADULT • FI SH ' , 1 9 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY' ,-1) 

CALL CMDNOE( f $EM -CHECK 1 ,10) 

CALL TAXIRCGET -L. AD. FISH' , 14) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
200 CALL TAXIRCGET IMPINGED. ADULT. FISH' , 23) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY',-1) 

CALL CMDNOE ( ' $EM -CHECK ' , 1 ) 

CALL TAXIRCGET -I .AD. FISH' , 14) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
2 1 CALL TAXI R ( ' GET LAKE . LARVAE ' , 1 5 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL. TAXI RC DUMMY' ,-1) 

CALL CMDNOE ( ' $EM -CHECK' ,10) 

CALL TAXIRCGET -L. LARVAE' , 13) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
220 CALL TAXIRCGET ENTRAINED. LARVAE* ,20) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRCDUMMY' ,^1 ) 

CALL CMDNOE C $EM -CHECK' ,10) 

CALL TAXIRCGET -E. LARVAE' , 13) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
C 
230 CALL TAXI R ( ' GET NUTRI ENTS ' r 1 3 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY' ,-1 ) 

CALL CMDNOE ( ' $EM -CHECK ',10) 

CALL TAXIRCGET -NUTRI ENTS ', 1 4 ) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
240 CALL TAXI R ( ' GET LAKEWATER ',13) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIRC DUMMY' ,-1) 

CALL CMDNOE ( f $EM -CHECK ',10) 

CALL TAXI R ( ' GET -LAKEWATER ',14) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

GO TO 300 
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250 CALL TAXIRt'GET SEDIMENTS* , 12) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 

CALL TAXIR( 'DUMMY* ,-1) 

CALL CMDNOE('$EM -CHECK 1 , 10) 

CALL TAXI R(» GET -SEDIMENTS' , 14) 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) RETURN 
C 

c******* 

C******* CHECK TAXIR MESSAGES. 

C******* 

C 

300 CALL TAXIR( 'DUMMY' ,-1) 

CALL CMDNOE( ' $EM -CHECK' , 10) 

WRITE(6,6) 
6 FORMAT {///REQUESTED DATA BANK IS NOT AVAILABLE.'/, 
1'DO YOU WANT TO SELECT ANOTHER DATA BANK?'/, 
VENTER "Y" FOR YES, "N" FOR NO.') 

CALL FREAD ( 5 , ' STRI NG : ' , RESP , LEN ) 

IF(EQUC('Y' ,RESP).OR.EQUC('y' ,RESP)) GO TO 20 
C 

c 

RETURN 

END 

SUBROUTINE OUTOP 
C 
C 
C 

c ***************************************************** 

c * * 

C * SUBROUTINE OUTOP; TO SELECT AN OUTPUT * 

C * FILE OR DEVICE. * 

C * * 

C ***************************************************** 

c 
c 
c 

c 
c 



LOGICAL* 1 LINE (29) 



DATA LINE(1),LINE(2),LINE(3),LINE(4),LINE(5),LINE(6), 

1LINE(7)/1HS, 1HE, 1HT, 1H , 1HO, 1HU, 1HT/ 

DATA LINE(8) ,LINE(9) ,LINE( 10) ,LINE( 1 1 )/1HP, 1HU, 1HT, 1H*/ 
C 

C******* 

C******* OUTPUT FILE/DEVICE OPTIONS. 
C******* 
C 

5 WRITE(6,1) 
1 FORMAT ( // , ' SELECT OUTPUT FI LE/DEVI CE , TYPE : ' // , 

13X,'1 TERMINAL'/, 

13X,'2 LINE PRINTER'/, 

13X,'3 OUTPUT FILE NAME') 



C 
C 



CALL FREAD(5, 'I:' ,IC) 
IF(IC.EQ.I) GO TO 10 
IF(IC.EQ.2) GO TO 20 
IF(IC.EQ.3) GO TO 30 
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C 
C 

WRITE (6 2) 

2 FORMAT ( // , f BAD OPTI ON ! ' ) 
GO TO 5 

C 

C******* 

C******* INTERFACE WITH TAXIR. 

C******* 

C 

10 CALL TAXIRCSET OUTPUT-* MS INK*' , 18) 

RETURN 
C 
2 CALL TAXI R ( ' SET OUTPUT- *PRI NT* ' , 1 8 ) 

RETURN 
C 
30 WRITE(6,3) 

3 FORMAT (///ENTER NAME OF THE OUTPUT FILE.') 
C 

c******* 

C******* INTERFACE WITH TAXIR, 

C****««* 

C 

LEN-18 

CALL FREAD(5, ' STRING: » ,LINE( 12) # LEN) 

LEN*LEN+ 1 1 

CALL TAXIR(LINE r LEN) 



C 
C 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 



C 
C 



RETURN 

END 

SUBROUTINE VOCAB 



SUBROUTINE VOCAB; TO PROVIDE THE USER WITH THE 
LIST OF DESCRIPTORS FOR THE SELECTED DATA BANK. 



INTEGER ERRNUM 

LOGICAL* 1 LINE(87),ASTRIS,RESP 

LOGICAL EQUC 



DATA ASTRIS/1H*/ 

DATA LINE( 1 ) ,LINE(2) ,LINE(3) r LINE(4)/1HS, 1HH r 1HO f 1HW/ 

DATA LINE(5)/1H / 
C 

C****«»* 

C******* OBTAIN DICTIONARY INFORMATION. 
(>***«♦* 
C 

WRITE(6, 1) 
1 FORMAT (//, 'ARE YOU FAMILIAR WITH ALL THE OPTIONS FOR OBTAINING* /, 
r INFORMATION ABOUT DATA DESCRIPTORS? ' /, 
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C 
C 



VTYPE "Y" FOR YES TO SKIP THE DESCRIPTIONS. '/, 
VTYPE "N" IF YOU NEED THE DESCRIPTIONS.') 



CALL FREAD(5, 'STRING:* ,RESP r 1) 

IF(EQUC(*Y',RESP).OR.EQUC('y',RESP)) GO TO 10 
C 
C 
40 WRITE(6,2) 

2 FORMAT (///THE OPTIONS ARE LISTED BELOW: '///, 

I' OPTION 1: TYPE "SUM" TO GET THE DATA SUMMARY FOR THE'/, 
1 ' SELECTED DATA BANK. ' ) 

WRITE(6,3) 

3 FORMAT (//,' OPTION 2: TO OBTAIN INFORMATION ON DESCRIPTORS,', 

V TYPE'/, 

1' THE NAMES OR CODES OF THE DESCRIPTORS,'/, 

1' (SEPARATED BY ,).'/, 

1* ENTER "ALL" FOR ALL THE DESCRI PTORS . * / , 

1' (EX: 1,2,3 OR MONTH, DAY OR ALL)') 

WRITE(6,4) 

4 FORMAT (//, 'OPTION 3: FOR LISTINGS OF BOTH DESCRIPTORS AND', 
1' THEIR'/, 

1' STATES, TYPE "F" FOLLOWING A PARAMETER'/, 

1' NAME OR CODE AS IN THE EXAMPLE BELOW.'/, 

1' (EX: 1 F,2 F,3 F OR MONTH F,DAY F OR ALL F)') 

WRITE(6,5) 

5 FORMAT (//, 'OPTION 4: TO OBTAIN THE LIST OF THE CODE(S) AND', 

V NAME'/, 

1 f (S) OF DESCRIPTOR STATE(S) THAT CONTAINS'/, 

r OR BEGINS WITH A PARTICULAR STRING; TYPE'/, 

1' THE DESCRIPTOR NAME OR CODE ALONG WITH'/, 

1' THE WORDS -BEGINS" OR "CONTAINS" AND THE'/, 

1' SPECIFIED STRING.'/, 

1* (EX: NAME CONTAINS MARY OR NAME BEGINS M)'/, 

1* *NOTE THAT FOR THIS OPTION THE DESCRIPTOR*/, 

1* TYPE SHOULD BE NAME OR ORDER.*) 

C 

C 

10 WRITE(6,6) 

6 FORMAT (//, 'ENTER THE DESCRIPTOR NAME(S) OR CODE(S) ALONG WITH'/, 
1'THE REQUIRED STRING (IF ANY).') 

C 

c******* 

C******* TAXIR INTERFACE WITH THE DATA BASE. 

C******* 

C 

LEN-80 

CALL FREAD( 5, 'STRING:' ,LINE(6) ,LEN) 

LEN=LEN+6 

LINE(LEN)«ASTRIS 
C 
C 

CALL TAXIR(LINE,LEN) 
C 

C******* 

C******* CHECK TAXIR MESSAGES. 
C******« 

c 

CALL ERRCHK(ERRNUM) 
IF(ERRNUM.EQ.O) GO TO 20 
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CALL TAXIR( 'DUMMY 1 ,-1) 

CALL CMDNOE( ' $EM -CHECK' ,10) 

WRITE(6,7) 

FORMAT (///THE INFORMATION YOU ASKED CAN NOT BE LISTED.'/, 
1'THE STATEMENT YOU HAVE TYPED CONTAINS ERROR (S).'/, 
1'DO YOU WANT TO TRY AGAIN? (Y/N)') 



C 
C 



CALL FREAD ( 5 , ' STRI NG : ' , RESP , 1 ) 

IF(EQUC( 'Y', RESP). OR. EQUCCy', RESP)) GO TO 30 

GO TO 20 
C 
C 

30 WRITE(6,8) 
8 FORMAT (//, 'DO YOU NEED HELP TO CONSTRUCT YOUR QUESTION? (Y/N)') 

CALL FREAD ( 5 , ' STRI NG : ' , RESP , 1 ) 

IF(EQUC('Y' ,RESP).OR.EQUC('y',RESP)) GO TO 40 

GO TO 10 
C 

c 

20 RETURN 

END 

SUBROUTINE PERCNT 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 
c 



********************************************************* 

SUBROUTINE PERCNT? TO PRODUCE STATISTICS IN 
TERMS OF PERCENTAGES FOR A DATA BANK, 

********************************************************* 



INTEGER ERRNUM 

LOGICAL* 1 LINE ( 86 ) r ASTRIS, RESP 

LOGICAL EQUC 



DATA LINE(1),LINE(2),LINE(3),LINE(4),LINE(5)/1HH,1HM, 1H ,1H*,1H / 
DATA ASTRIS/1H*/ 
C 

c******* 

C******* INSTRUCTIONS TO OBTAIN THE NECESSARY STATISTICS. 

C******* 

C 

30 ' WRITE(6,1) 

1 FORMAT (//, 'DO YOU NEED HELP TO CONSTRUCT YOUR QUESTION? (Y/N)') 
C 

C 

CALL FREAD(5, 'STRING:' ,RESP,1) 

IF(EQUC( 'Y', RESP). OR. EQUCCy', RESP)) GOTO 10 

GO TO 20 
C 
C 
10 WRITE(6,2) 

2 FORMAT (//, 'TO SPECIFY YOUR QUESTION YOU SHOULD ENTER THE', 

1' NAME'/, 'OR CODE OF THE DESCRIPTOR ALONG WITH ITS TYPE '/, 
1' (SEPARATED BY ,).'/, • 
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V(EX: DAY, 31 OR YEAR, 80)'//, 

1'TO COMBINE THE DESCRIPTORS USE LOGICAL STATEMENTS '/# 

1 f -AND/OR". YOU CAN ALSO USE PARENTHESES TO NAME THE'/, 

r SUBSET OF INTEREST FROM THE TOTAL BANK.'/, 

VEX: YEAR, 80 AND MONTH, MAY'/, 

r YEAR, 80 OR MONTH, MAY'/, 

r (YEAR, 80 AND MONTH, MAY) OR DAY, 3D 

C 

C 

20 WRITE(6,3) 

3 FORMAT ( // , ' ENTER THE QUESTI ON . * ) 
C 

c******* 

C******* TAXIR INTERFACE WITH THE DATA BASE, 

C******* 

C 

LEN«80 

CALL FREAD( 5, 'STRING: f ,LINE(6) ,LEN) 

LEN«LEN+6 

LINE(LEN)«ASTRIS 
C 
C 

CALL TAXIR(LINE,LEN) 
C 

c******* 

C* ****** CHECK TAXIR MESSAGES. 

C******* 

C 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) GO TO 40 

CALL TAXIR( 'DUMMY' ,-1) 

CALL CMDNOE( ' $EM -CHECK' ,10) 

WRITE(6,4) 

4 FORMAT (//, 'THE PERCENTAGE CAN NOT BE COMPUTED.'/, 
1'THE STATEMENT YOU HAVE TYPED CONTAINS ERROR(S).'/, 
1'DO YOU WANT TO TRY AGAIN? (Y/N) ' ) 

C 
C 

CALL FREAD(5,'STRING:»,RESP,1) 

IF(EQUC('Y',RESP).OR.EQUC('y' ,RESP)) GO TO 30 
C 
C 
40 RETURN 

END 

SUBROUTINE QUERY 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

INTEGER ERRNUM 

LOGICAL* 1 LINE(166),ASTRIS,RESP 

LOGICAL EQUC 



SUBROUTINE QUERY; TO RETRIEVE INFORMATION * 
FROM THE SELECTED DATA BANK. * 

* 
******************************************************** 
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C 
C 



C 

C* 

O 

C* 

C 

40 

1 

C 

c 



c 
c 

10 
2 



DATA ASTRIS/1H*/ 

DATA LINE(1),LINE(2)/1HQ r 1H / 



****** 
******* 
****** 



INSTRUCTIONS TO CONSTRUCT THE QUERIES. 



WRITE(6,1) 

FORMAT (//, 'DO YOU NEED THE INSTRUCTIONS TO MAKE YOUR QUERY? (Y/N)') 

CALL FREAD ( 5 , ' STRING : ' , RESP , 1 ) 
IF(E0UC{'Y',RESP).OR.EQUC('y',RESP)) GOTO 10 
GO TO 20 

WRITE(6,2) 

FORMAT (///THE QUERY "Q" COMMAND IS THE MOST POWERFUL RETRIEVAL', 
TOOL V,* IN THIS PROGRAM. THE CONSTRUCTION OF A QUERY 1 , 
STATEMENT' //CONSISTS OF TWO PARTS:'///, 
I. THE SPECIFICATION OF THE DESCRI PTOR ( S ) WHICH MUST BE'/, 
LISTED IN THE DATA OUTPUT. THERE ARE FIVE OPTIONS FOR'/, 
THIS PART AS SHOWN BELOW:'//, 

1. THE NAME(S) OR CODE(S) OF THE DESCRI PTOR ( S ) CAN'/, 
BE ENCLOSED IN PARENTHESES, (SEPARATED BY ,).'/, 
TYPING AN "A" IN ENCLOSED ANGLE BRACKETS "<>"'/, 
FOLLOWING DESCRIPTOR CODE OR NAME WILL RESULT IN'/, 
A PRINT OF DUPLICATE STATES.'/, 
EX: (YEAR, MONTH, DAY)'/, 

( YEAR< A> , MONTH< A> , DA Y<A> )'//, 
2„ TYPING "ALL" RESULTS IN THE LIST FOR ALL OF THE'/, 
DESCRIPTORS.'/, 
EX: (ALL)') 
WRITE(6,3) 

FORMAT (/,' 3. A TOTAL OR SUBTOTAL OF NUMERICAL DESCRIPTORS CAN'/, 
BE OBTAINED BY TYPING A "TN" IN A PAIR OF ANGLE'/, 
BRACKETS, WHERE N INDICATES THE SUBTOTAL FOR THE'/, 
NTH DESCRIPTOR. IF N IS ZERO, THEN THE GRAND'/, 
TOTAL IS PRINTED. AN EXAMPLE IS SHOWN BELOW IN'/, 
WHICH TO IS THE GRAND TOTAL AND T1 AND T2 ARE THE'/, 
SUBTOTALS FOR DESCRIPTORS 1 AND 2.'/, 
EX : ( YEAR , MONTH , SPCONT<T0 , T 1 , T2> ) ' // , 

4. IF THE OUTPUT IS DESIGNED TO SERVE AS AN INPUT TO'/, 
MIDAS FOR FURTHER STATISTICAL ANALYSIS THE'/, 
STATEMENT "<STAT,FN>" SHOULD BE TYPED BEFORE THE'/, 
DESCRIPTOR LIST, WHERE "FN" IS THE NAME OF THE'/, 
OUTPUT FILE PROVIDED BY THE "0" COMMAND.'/, 
EX: <STAT,RESULT> ( YEAR, MONTH, DA Y, S PCONT ) '//, 

5. IF THE WORD "TAB" IS USED IN A PAIR OF ANGLE'/, 
BRACKETS BEFORE THE DESCRIPTOR LIST, THE'/, 
PERCENTAGE OF DATA ITEMS FOR EACH CELL IN AN'/, 
N-WAY TABULATION IS PRINTED.'/, 
EX: <TAB> ( YEAR, MONTH, SPCONTS)' ) 

WRITE(6,4) 

FORMAT(//,'II. THE BOOLEAN EXPRESSION, WHICH DEFINES THE SUBSET OF'/, 
ITEMS FROM THE DATA BANK, WHICH MUST BE RETRIEVED.'/, 
TO COMPLETE THIS, THE NAME OR CODE OF THE DESCRIPTOR'/, 
AND ITS TYPE SHOULD BE ENTERED, (SEPARATED BY ,).'/, 
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TABLE 5.1. (Continued). 



EX: YEAR, 80 V, 

MONTH, MA Y'//, 
THIS SUBSET MAY CONSIST OF A COMBINATION OF f /, 
DESCRIPTORS. IN THIS CASE THE LOGICAL STATEMENTS 1 /, 
" AND/OR" AND PARENTHESES " ( ) " CAN BE USED TO SELECT'/, 
THE SUBSET. IF "ALL" IS ENTERED THE SUBSET OF'/, 
INTEREST IS EQUAL TO THE WHOLE DATA BANK. 1 /, 
EX: YEAR, 80 AND MONTH, MAY'/, 
YEAR, 80 OR MONTH, MAY'/, 
(YEAR, 80 AND MONTH, MAY) OR DAY, 31'/, 
ALL') 
C 
C 
20 I COUNT- 3 

WRITE(6,5) 

5 FORMAT (//,» ENTER THE DESCRIPTOR LIST AND THE NECESSARY KEYWORDS. 1 /, 
1 • EX : ( YEAR< A> , MONTH<A> , SPCONT<A> ) f / , 

r (YEAR,SPCONT<T0,T1>)V, 

1 » <STAT , RESULT> ( YEAR , MONTH , SPCONT ) ' / , 

1 ' <TAB> ( YEAR , SPCONT> • ) 

LEN-80 

CALL FREAD( 5,' STRING:', LINE(ICOUNT) ,LEN) 

I COUNT* I COUNT+LEN+ 1 

LI NE ( I COUNT ) -ASTRI S 

I COUNT- I COUNT* 1 
C 
C 

WRITE(6,6) 

6 FORMAT (//,' ENTER THE BOOLEAN EXPRESSION TO NAME THE' , 
1 f SUBSET OF'/,' INTEREST FROM THE TOTAL BANK.'/, 

VEX: YEAR, 80 AND MONTH, MAY f ) 
C 
C 
C 

C******* 

C******* TAXIR INTERFACE WITH THE DATA BASE. 
C******* 
C 

LEN-80 

CALL FREAD ( 5 , f STRING : • , LINE ( I COUNT ) , LEN ) 

I COUNT- I COUNT+LEN+ 1 

LI NE ( I COUNT ) -ASTRI S 
C 
C 

CALL TAXIR (LINE, I COUNT) 
C 

C******* 

(>**♦♦♦* CHECK TAXIR MESSAGES. 
C******* 
C 

CALL ERRCHK(ERRNUM) 

IF(ERRNUM.EQ.O) GO TO 30 

CALL TAXIRC DUMMY* ,-D 

CALL CMDNOE ( ' $EM -CHECK ',10) 

WRITE(6,7) 

7 FORMAT (//,» THE LIST CAN NOT BE PRINTED. 1 /, 

TTHE STATEMENT YOU HAVE TYPED CONTAINS ERROR (S).'/, 

TDO YOU WANT TO TRY AGAIN? (Y/N) f ) 
C 
C 
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TABLE 5.1. (Continued). 



CALL FREAD ( 5 , ' STRI NG : ' , RESP , 1 ) 

IFfEQUCCY 1 ,RESP).OR.EQUC(*y' ,RESP) ) GO TO 40 
C 
C 
30 RETURN 

END 

SUBROUTINE TERMIN 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

LOGICAL EQUC 

c 
c 

WRITE(6,1) 
1 FORMAT (///DO YOU WANT TO END THE EXECUTION OF THE PROGRAM? (Y/N) • ) 
C 

c 



************************************************************* 

* 
SUBROUTINE TERMIN; TO TERMINATE THE EXECUTION * 
OF THE PROGRAM. ♦ 

* 
************************************************************* 



CALL FREAD ( 5 , f STRING : ' , RESP , 1 ) 

IF(EQUC( f Y' ,RESP).OR.EQUC('y' ,RESP) ) STOP 
C 
C 

WRITE(6,2) 
2 FORMAT ( * COMMAND I GNORED . f ) 
C 
C 

RETURN 

END 

SUBROUTINE ERRCHK ( ERRFLG ) 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

INTEGER ERRFLG 

LOGICAL* 1 ERROR(6) 

LOGICAL EQUC 
C 
C******* 

C******* READ TAXIR MESSAGES FROM THE FILES ASSIGNED TO SERCOM, WHICH 

C******* CONTAINS ERROR MESSAGES RECOGNIZED AT THIS POINT. 

C******* 

C 

READ(7,1) ERROR 
1 FORMAT (6A1) 
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************************************************************* 

* 
SUBROUTINE ERRCHK; TO CHECK THE ERROR MESSAGES * 
PRODUCED BY TAXIR PROGRAM. * 

****^^**i*************i*************i*****^******i** ************* 



TABLE 5.1. (Continued). 



CALL CMDNOE( ' $EM -CHECK* ,10) 

ERRFLG* 1 

I F ( EQUC ( ? OREADY ' , ERROR ) ) ERRFLG* 
C 
C 

RETURN 

END 
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TABUS 5.2. File HELP. 



♦♦THIS IS AN INTERACTIVE PROGRAM** 

IF YOU ARE NOT NOW USING THE "UPPER CASE" 
OPTION, PLEASE DO SO. SINCE THIS PROGRAM CAN 
WORK ONLY WITH THE "UPPER CASE" OPTION. 



THE GOAL OF THIS PROGRAM IS TO HELP YOU TO 
RETRIEVE THE INFORMATION YOU NEED FROM ANY 
OF THE 13 EXISTING DATA BANKS, WHICH ARE 
LISTED AS FOLLOW: 



LAKE . PHYTOPLANKTON 




OR 


1 


ENTRAI NED . PHYTOPLANKTON 




OR 


2 


LAKE.ZOOPLANKTON 




OR 


3 


ENTRAI NED . ZOOPLANKTON 




OR 


4 


LAKE. BENTHOS 




OR 


5 


ENTRAI NED . BENTHOS 




OR 


6 


IMPINGED. BENTHOS 




OR 


7 


ADULT . FI SH . SUMMARY . STATI STI CS 


OR 


8 


LAKE. ADULT. FISH 




OR 


9 


IMPINGED. ADULT. FISH 




OR 


10 


LAKE. LARVAE 




OR 


11 


ENTRAI NED. LARVAE 




OR 


12 


NUTRI ENT . AND . ANI ON 




OR 


13 


LAKEWATER . CHEMI STRY 




OR 


14 


SEDIMENTS 




OR 


15 


THERE ARE SEVEN COMMANDS 


IN THIS PF 


KX»] 


HELP 




H 




SELECT DATA BANK 




S 




SELECT OUTPUT OPTION 









VARIABLE DESCRIPTION 




V 




PERCENTAGE OF TOTAL DATA 


ITEMS 


p 




QUERY 




Q 




TERMINATE THE PROGRAM 




T 





HINTS: FOR DATA RETRIEVAL, THE SEQUENCE OF 
OPERATIONS LISTED BELOW IS USUALLY FOLLOWED; 

(1) FIRST YOU SHOULD SELECT THE DATA BASE 
OF INTEREST. 

(2) ONCE THAT IS DONE, YOU SHOULD TELL THE 
COMPUTER WHAT DEVICE YOU ARE USING AND 
HOW YOU WANT YOUR INFORMATION PRINTED. 
THIS CAN BE ACCOMPLISHED BY TYPING "0" 
AND RESPONDING TO THE QUESTIONS WHICH 
APPEAR AFTER THE COMMAND "0". 

(3) THREE TYPES OF INFORMATION CAN THEN BE 
ACCESSED; IF YOU NEED THE VARIABLES 
CONTAINED IN THE DATA BASE, TYPE "V". 
IF YOU WANT TO- KNOW THE PERCENTAGE OF 
DATA ITEMS IN THE DATA QUERY TYPE "P". 
IF YOU NEED THE ACTUAL DATA FOR ALL OR 
PART OF THE DATA BASE, TYPE "Q". 

PLEASE ANSWER TO ALL OF THE QUESTIONS, WHICH 
APPEAR AFTER YOU TYPE THE COMMAND. 
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TABLE 5.2. (Continued). 



(4) FINALLY, WHEN YOU DO NOT WANT TO PROCEED 
FURTHER, "T" WILL TERMINATE THE RETRIEVAL 
OPERATIONS AND RETURN YOU TO MTS* 



TO GET THE DESCRIPTION OF THE COMMANDS TYPE 
"H" FOR HELP, THEN TYPE THE FIRST LETTER OF 
EACH COMMAND WHILE YOU ARE IN HELP MODE, 
(EX: S, FOR SELECT DATA BANK). 



HELP 



FUNCTIONS 



TO EXPLAIN ONE OR MORE COMMANDS FOR THE 
USER. 



HOW TO CALL: 



PRESS "H" TO GET A LIST OF ALL THE EXISTING 

COMMANDS. 

IF YOU ARE INTERESTED IN A SPECIFIC COMMAND 

ENTER THE FIRST LETTER OF THAT COMMAND, 

(H,S,0,V,P,Q,T). 



SELECT DATA BANK 



FUNCTIONS 



TO SELECT ONE OF THE EXISTING DATA BANKS. 



HOW TO CALL: 



PRESS "S" TO CHOOSE A DATA BANK AND TO GET A 
LIST OF EXISTING DATA BANKS. 



SELECT OUTPUT OPTION 



FUNCTIONS 



TO CHOOSE AN OUTPUT FILE/DEVICE THAT OUTPUTS 
GET PRINTED ON, (EXs TERMINAL SCREEN, LINE 
PRINTER, LINE FILE). 



HOW TO CALLS 



PRESS "0" TO SELECT THE OUTPUT FILE/DEVICE. 
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TABLE 5.2. (Continued). 



VOCABULARY "V" 



FUNCTION: 



TO GET THE VOCABULARY LIST FOR SOME OR ALL 
OF THE DESCRIPTORS. 



HOW TO CALL: 



PRESS "V" TO GET THE VOCABULARY LIST. 



PERCENTAGE "P" 



FUNCTION: 



TO PROVIDE THE USER WITH THE PERCENTAGE OF 
ITEMS IN THE TOTAL DATA BANK BELONGING TO 
THE SUBSET OF INTEREST. 



HOW TO CALL: 



PRESS "P" TO GET THE PERCENTAGE. 



QUERY "Q" 



FUNCTION: 



TO RETRIEVE INFORMATION FROM THE SELECTED 
DATA BANK. 



HOW TO CALL: 



PRESS "Q" TO RETRIEVE THE ACTUAL DATA FOR 
ALL OR PART OF THE SELECTED DATA BASE. 



TERMINATE THE PROGRAM "T" 



FUNCTION: 



TO TERMINATE THE EXECUTION OF THE PROGRAM. 



HOW TO CALL: 



PRESS "T" TO END THE PROGRAM. 
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TABLE 5.3. Program LINK. 



C RUN PROGRAM LINK RESULTS IN CREATION OF TEMPORARY FILE -F, 

C WHERE "F" INDICATES THE NAME OF THE FILE WHICH CONTAINS THE 

C COMMANDS NECESSARY FOR RESTORATION OF THE DATA BASES FROM A 

C *FS TAPE. 

C UNIT 5 IS ASSIGNED TO *MSOURCE* TO READ THE CODE NUMBER(S) 

C OF THE DATA BANK(S) WHICH NEED TO BE RESTORED. 

C UNIT 6 IS ASSIGNED TO ♦SINK* TO PRINT THE MESSAGES ON THE 

C TERMINAL. 

C UNIT 7 IS ASSIGNED TO FILE "-G" FOR *FS USE. 

C UNIT 8 IS ASSIGNED TO FILE "-F" FOR RESTORATION COMMANDS. 

C 

c 
c 

c ************************************************* 

c * 

C * PROGRAM LINK; TO RESTORE THE DATA 

C * BASES FROM THE TAPE. 

C * 

c ************************************************* 

c 
c 
c 

INTEGER IARR(15),NUM,N 
LOGICAL* 1 RESP 
LOGICAL EQUC 
C 

c******* 

C******* ENTER THE CODE NUMBER(S) OF THE DATA BANK(S). 

C******* 

C 

30 WRITE(6 r 1) , % 

1 FORMAT (//,' ENTER THE CODE NUMBER(S) OF THE DATA BANK(S) WHICH YOU'/, 
1'LIKE TO WORK WITH DURING THE EXECUTION OF THIS PROGRAM. '/, 
1 f THESE DATA BANKS WILL BE RESTORED FROM THE TAPE AND CAN'/, 
1'BE ACCESSED LATER ONE AT A TIME. CODE NUMBERS SHOULD BE'/, 
TSEPARATED BY A " , " . (EX: 1,2,3,4)') 



N-FREAD ( 5 , ' INTEGER VECTOR: ' , I ARR ,15) 

IF(N.NE.O) GO TO 10 

WRITE(6,2) 

2 FORMAT(//,'NO ENTRY!'/, 

1'DO YOU NEED THE LIST OF THE DATA BANKS? (Y/N) » ) 
C 

CALL FREAD ( 5 , ' STRING : ' , RESP , 1 ) 

IF(BQUC( 'Y', RESP). OR. EQUC( 'y' , RESP)) GO TO 20 

GO TO 30 
C 

C******* 

C******* PRINT THE LIST OF DATA BANKS IF NEEDED. 
C******* 
C 
20 WRITE(6,3) 

3 FORMAT (//, 'THE DATA BANKS AND THEIR CODE NUMBERS ARE?' 

1'LAKE^PHYTOPLANKTON OR 1'/, 

1 ' ENTRAI NED . PHYTOPLANKTON OR 2 ' / , 

1 ' LAKE . ZOOPLANKTON OR 3 ' / , 

1 ' ENTRAI NED . ZOOPLANKTON OR 4 ' / , 

1 f LAKE. BENTHOS OR 5'/, 

1 ' ENTRAI NED . BENTHOS OR 6 ' / , 
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TABLE 5.3. (Continued). 



OR 


7'/, 


OR 


8V, 


OR 


9V, 


OR 


10'/, 


OR 


11V. 


OR 


12V, 


OR 


13V, 


OR 


14'/, 


OR 


15') 



r IMPINGED. BENTHOS 

r ADULT . FI SH . SUMMARY . STATI STI CS 

r LAKE. ADULT. FISH 

1 • IMPINGED.ADULT.FI SH 

1 f LAKE. LARVAE 

1 » ENTRA I NED . LARVAE 

1 • NUTRI ENT . AND . ANI ON 

1 f LAKEWATER . CHEMI STRY 

1 ' SEDIMENTS 
C 

GO TO 30 
C 

c******* 

C******* CHECK THE ENTERED CODE NUMBER(S). 

C******* 

C 

10 J«0 

DO 40 1-1, N 

IF((IARR(I).NE.0).AND.(IARR(I).LT.16)) GO TO 40 

J-J+1 
40 CONTINUE 
C 

IF(J.EQ.N) GO TO 50 

IF((J.NE.0).AND.(J.LT.N)) GO TO 60 

GO TO 70 
C 
50 WRITE (6 4) 

4 FORMAT (///THE ENTERED CODE NUMBER(S) ARE NOT ACCEPTABLE. 1 ) 
8 WRI TE (6 5 ) 

5 FORMAT (//,* DO YOU NEED THE LIST OF THE DATA BANKS? (Y/N) • ) 
CALL FREAD( 5 ,' STRING: ' ,RESP,1) 

IFfEQUCCY' .RESPKOR.EQUCCy'jRESP)) GO TO 20 

GO TO 30 
C 
60 WRITE(6,6) J 

6 FORMAT(//,I5,1X, 'WRONG CODE NUMBER(S) . V, 
1'DO YOU WISH TO REENTER THE LINE? (Y/N) f ) 

CALL FREAD( 5 , f STRING: ' r RESP, 1 ) 
IFtEQUCCY'^RESPj.OR.EQUCCy^RESP)) GO TO 80 
C 

c******* 

C******* CREATION OF FILE "-G". 

C******* 

C 

70 WRITE(7,7) 

7 FORMAT ( ' RESPONDS f ) 
C 

CALL CMDNOE ( ' $EM -G ' , 6 ) 
C 

DO 90 1-1, N 
WRITE(7,8) 

8 FORMAT('Y') 
90 CONTINUE 

C 

c******* 

C******* CREATION OF FILE "-F". 

C******* 

C 

WRITE(8,9) 

9 FORMAT ( f COMMANDS ' ) 
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TABLE 5.3. (Continued). 



C 
C 

C 



CALL CMDNOE ( * $EM -F ' , 6 ) 

DO 100 I«1,N 

NUM-IARR(I) 

GO TO (120 f 130,140,150, 160, 170,180,190 ,210,220,230 , 240, 250,260 , 270) ,NUM 



WRITE(6,11) NUM 

11 FORMAT(//,I5,1X,'NOT AN ACCEPTABLE CODE NUMBER.') 
GO TO 100 

C 

120 WRITE(8,12) 

12 FORMAT ('RESTORE LAKE . PH YTOPLANKTON -LAKE.PHYTO' ) 
GO TO 100 

C 

130 WRITE(8,13) 

13 FORMAT ('RESTORE ENTRAINED. PHYTOPLANKTON -ENT.PHYTO' ) 
GO TO 100 

C 

140 WRITE(8,14) 

1 4 FORMAT ( ' RESTORE LAKE . ZOOPLANKTON -LAKE . 200 ' ) 
GO TO 100 

C 

150 WRITE(8,15) 

1 5 FORMAT ( ' RESTORE ENTRAI NED . ZOOPLANKTON -ENT . ZOO ' ) 
GO TO 100 

C 

160 WRITE(8,16) 

16 FORMAT ('RESTORE LAKE. BENTHOS -LAKE. BEN' ) 
GO TO 100 

C 

170 WRITE(8,17) 

1 7 FORMAT ( ' RESTORE ENTRAI NED . BENTHOS -ENT . BEN ' ) 
• GO TO 100 

C 

180 WRITE(8,18) 

18 FORMAT ('RESTORE IMPINGED. BENTHOS -IMP. BEN' ) 
GO TO 100 

C 

190 WRITE(8,19) 

1 9 FORMAT ( ' RESTORE ADULT . FI SH . SUMMARY . STATI STI CS -AD . FI SH . S . S ' ) 
GO TO 100 

C 

210 WRITE(8,21) 

21 FORMAT ('RESTORE LAKE. ADULT. FISH -L. AD. FISH' ) 
GO TO 100 

C 

220 WRITE(8,22) 

22 FORMAT ('RESTORE IMPINGED. ADULT. FISH -I. AD. FISH') 
GO TO 100 

C 

230 WRITE(8,23) 

2 3 FORMAT ( » RESTORE LAKE . LARVAE -L . LARVAE ' ) 

GO TO 100 
C 

240 WRITE(8,24) 
24 FORMAT ( ' RESTORE ENTRAI NED . LARVAE -E . LARVAE ' ) 

GO TO 100 
C 
250 WRITE(8,25) 
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TABLE 5.3. (Continued). 



2 5 FORMAT ( ' RESTORE NUTRI ENTS -NUTRI ENTS * ) 

GO TO 100 
C 
260 WRITE(8,26) 

26 FORMAT ('RESTORE LAKEWATER -LAKEWATER' ) 
GO TO 100 

C 

270 WRITE(8 r 27) 

27 FORMAT ('RESTORE SEDIMENTS -SEDIMENTS') 
100 CONTINUE 

C 

c******* 

C******* END OF THE *FS COMMANDS IN FILE "-F". 

C******* 

C 

WRITE(8,28) 

28 FORMAT ('STOP') 
C 

WRITE(6 r 29) 

29 FORMAT(// r 'AT THIS POINT THE TAPE IS BEING MOUNTED AND THE REQUESTED'/, 
1'DATA BANK(S) ARE BEING RESTORED. COMPLETION OF THIS'/, 

1' PROCESS WILL TAKE A FEW MINUTES. PLEASE STAND BY! ' ) 
C 
C 

STOP 

END 
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and then passing their responses on to the Taxir program. This program is made 
possible by the fact that Taxir can be loaded and run as a subroutine of a 
larger program. Using this feature in programming, two programs can be loaded 
together, and control commands can be passed to each other without unloading 
the first program. This allows both programs to remain loaded and maintain an 
updated value of their variables. However, if a program is loaded along with 
the initialization of the variables by using an ordinary run command, problems 
can occur when a second run command is issued. This results in loading the new 
program and unloading of the first program, and can lead to the loss of the 
updated values for the parameters of the first program. 

The program INTERACT, using a Taxir FORTRAN callable subroutine, stores 
the necessary commands (statements) in an array of characters and passes them 
to Taxir as an argument of the subroutine, as shown in the following form: 

CALL TAXIR (ARRAY, LENGTH) 

ARRAY is the first calling argument containing the Taxir command, and LENGTH 
is the 2nd calling argument representing the length in characters of the com- 
mand. The LENGTH argument is important because at each call Taxir should look 
only at the meaningful characters stored in the array at that time so as to 
avoid problems which can be caused by the characters left by the previous com- 
mands of greater length. As an example, the Taxir call (as seen in various uses 
in program INTERACT) can be: 

CALL TAXIR ( f SET OUTPUT=*MSINK* ' , 18) 

Here, 18 is the number of the characters in this command, and this call could 
be made when the terminal screen is to be selected as the output device. 

148 



The above explanations show how, in general, different Taxir commands are 
passed by INTERACT (or any other FORTRAN program) to Taxir. However, Taxir 
can be called from INTERACT in two other special forms for two specific 
purposes. On these two calls, the LENGTH arguments have definite values, 
but the ARRAY arguments can be ignored and replaced by dummy parameters. These 
two calls are explained as follows: 

1. LENGTHO CALL TAXIR (' DUMMY', 0) 

This call initializes Taxir and is equivalent to invoking Taxir with 
the $RUN *TAXIR command. This call is made only once in the beginning 
of the program INTERACT. 

2. LENGTH=-1 CALL TAXIR ( ! DUMMY f ,-l) 

This is equivalent to pressing the return key (in case Taxir is running 
by itself) to cancel a statement or a data item. This call is used in 
INTERACT whenever an error in the statement (command) passed to Taxir 
is detected. 

PROGRAM LINK 

There are 15 different data banks contained in the Cook data base. Some of 
these data banks are very large and occupy a large memory space. As a result, 
it is not economical to keep all the data on-line. Our approach is to save 
these data banks on magnetic tape and to restore them, in temporary files 
when they are needed. 

The program LINK (shown in Table 5.3) is designed to accomplish this 
task. This program can be called by INTERACT whenever the request is made 
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to restore some or all of the data base. When users respond to the computer 
query as to the names of data banks to be restored, the restoration of these 
data banks will be made in temporary files. This process, however, often takes 
considerable time, especially during peak computer use periods. 

PROCEDURES FOR OPERATING INTERACT AND LINK 

To run the program INTERACT, the user should first sign on to MTS. This is 
done by entering the computer center account ID (CCID) and the password for that 
account shown as follows: 

#SIGNON XXXX (account ID) 
?XXXX (Password) 

Then enter the command: 

#SOURCE INTERACTIVE 

This statement will start the execution of the program INTERACT. The com- 
munication from this point on is interactive; the users simply respond to the 
questions asked by the program. To ensure the success of the data retrieval, it 
is important to respond to all the questions asked by the program. However, 
during the execution of the program if there is a need to select a data bank, 
which may or may not be on-line, the program will first check whether the data 
bank being requested is on-line. If the file is not on-line, the program LINK 
will be run automatically to restore part or all of the requested data. 
The flow-diagram in Figure 5.1 represents the major steps in the above 
operations. 
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SOURCE INTERACTIVE 
{RUN INTERACT. OB J+*TAXIR. 



S (SELECT DATABANK) 




YES 



CONTINUE WITH 
NEXT STEPS 



NO 



SOURCE RESTORE 
RUN LINK. OB J... 
I MOUNT 9TP *T*... 
'run *FS 0»*T*... 
RUN INTERACT. OB J+*TAXIR. 



J 




Figure 5.1. Flow-chart representation of stages involved in operations 
of INTERACT and LINK. 



151 



UNIT ASSIGNMENTS FOR PROGRAMS INTERACT AND LINK 

Any CCID which is used to run the interactive program will have access 
to the following four files : 

File I: INTERACT. OBJ 

This file contains the object codes for the INTERACT program. 

File II: LINK. OBJ 

The object codes for the LINK program are in this file. 

File III: INTERACTIVE 

This file consists of the following RUN command: 

RUN INTERACT. OB J+*TAXIR 5=*MS0URCE* 6=*SINK* 7=-CHECK 

SERCOM=-CHECK 

This run command invokes Taxir and INTERACT simultaneously. 

Units 5 and 6 are assigned to the terminal screen to serve 

as interactive input/output devices. Taxir error messages 

are written on a device called SERCOM. SERCOM and Unit 7 

are assigned to the temporary file -CHECK. This file 

is used to detect and control typing errors made by the user. 

File IV: RESTORE 

There are four commands in this file: 

Command A: 

RUN LINK. OBJ 5=*MS0URCE* 6=*SINK* 7=-G 8=-F 

Unit 8 is assigned to file -F. File -F contains the restoration 

commands. Units 5 and 6 are assigned to the terminal screen 

as explained in III. Unit 7 is assigned to -G to be used later 

in MTS file saving program (*FS). 
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Command B: 

MOUNT C0073A 9TP *T* VOL=COOK f COOK ! 

This line of file RESTORE specifies that the 9-track computer 
tape should be mounted. 
Command C: 

RUN *FS 0=*T* SCARDS=-F GUSER=-G SERCOM=-S SPRINT=-SP 
Running the *FS program will result in restoration of the 
requested databanks. SCARDS is assigned to -F for input com- 
mands. GUSER is assigned to -G which is created by Command A 
for the source of responses to *FS prompting messages. SERCOM 
is assigned to -S for the error messages and SPRINT is assigned 
to -SP for saving other messages from *FS. 
Command D: 

RUN INTERACT. OB J+*TAXIR 5==*MS0URCE* 6=*SINK* 7=-CHECK 
SERCOM=-CHECK 
Finally, this last line of file RESTORE is the same run command as 

in Command A. This identical run command will restart the program INTERACT. 

At this point, the file restoration is complete and data retrieval can be 

continued. 
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CHAPTER 6 
DISCUSSION 

This report documents in detail the procedures used and the programs writ- 
ten in establishing the data base management system for the D. C. Cook ecologi- 
cal study and describes the data contained in the data base as well as the way 
in which these data can be accessed. This documentation can be used as a 
reference when accessing the data base and to clarify questions that arise 
during the use of this system. 

A computer data base management system is essential for a large project 
because it can increase efficiency in report writing, data analyses, and data 
interpretation. It can also enhance data exchange and utilization; provide an 
efficient way to archive the data; and act as a safeguard for access to and 
centralized management of the data. 

The Cook computer data base encompasses 15 individual data banks. 
The total includes more than one-half million cases of biological, chemical, 
and physical information on the nearshore of southeastern Lake Michigan. 
This data base is considered one of the largest water quality information bases 
for the southeastern portion of the lake. Considerable experience has been 
gained from the establishment of this data base. This experience can be useful 
for establishing a computer data system for other projects and is discussed in 
the paragraphs which follow. 

Any sizable research project should have a computerized data base manage- 
ment system. Such a system should be established at the onset of the research 
project, beginning at the same time as the beginning of data collection. When 
one is still in the research planning phase, considerations should be given to 
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1) the type of data which will be collected, 2) the kind of analysis and report 
format which will be needed, 3) the type of access which is expected, and 4) the 
type of information retrieval which will be used frequently. These considera- 
tions are critical to ensure that the computerized data base meets the needs 
of the users. Once the answers for these questions are provided, a uniform data 
reporting format should be used. This can reduce the time and effort needed to 
establish a data base management system. 

One needs to know what DBMS programs are available from the main frame 
of the computer and at what cost for data entry and subsequently updating. 
One should also know the capabilities and limitations of the available DBMS 
programs, whether the capabilities of a DBMS program meet the basic needs 
for a project, and whether the limitations would impose a serious restriction 
on the operation and use of the data base« Considerations of DBMS should also 
cover the maintenance and expansion of a data base and the degree of difficulty 
for a person to use and operate the data base management system. 

The discussion thus far has assumed that the state of computer technology 
and data base management has remained unchanged. It is important to realize 
that is not the case, that a DBMS which serves you today will certainly differ 
greatly at some time in the future. We have observed rapid progress in the use 
and operation of computers in the past 10 years. We can expect that similar 
even faster progress may be made in the time to come. For example, it would not 
be unthinkable that one could simply speak to a computer receiver to retrieve 
needed information from a DBMS in the near future, as voice recognition and 
natural language queries become components of data base management systems. As 
computers become more powerful and able to store large amounts of data less 
expensively, a DBMS could include graphics or instant: results of statistical 
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analyses with a few simple commands. Simplified protocol can make the use of 
DBMS an easy task and will enable the user to access many on-line information 
services without learning specialized techniques or command languages for each 
one. Accessing an ecological data base in this case would not differ too much 
from getting cash from your bank account by using a computer terminal. By then, 
DBMS will truly be an integral part of our daily life. The tedious task of data 
selection and analyses for aquatic studies can be accomplished in a matter of a 
few minutes. 

While dreaming of possible future directions in computer technology for 
data base management systems, we hope and believe that the Cook data base 
management system represents the state of the art for the present and can 
facilitate the use and access of ecological data for southeastern Lake Michigan. 
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